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Express Mail Label No. EL474251554US 

Attorney Docket No, 1 0334- 1US 
TITLE OF THE INVENTION 

AUTOMATED SYSTEM FOR ANALYZING CHARGES AND CREDITS OF BANKS 
AND OTHER FINANCIAL INSTITUTIONS 

COPYRIGHT NOTICE AND AUTHORIZATION 
Portions of the documentation in this patent document contain material that is 
subject to copyright protection. The copyright owner has no objection to the facsimile 
reproduction by anyone of the patent document or the patent disclosure as it appears in 
the Patent and Trademark Office file or records, but otherwise reserves all copyright 
rights whatsoever. 

BACKGROUND OF THE INVENTION 
Over the last few decades, banks and other financial institutions, hereafter 
collectively referred to as "banks," have begun charging their clients for the services 
performed. These charges include, but are not limited to: deposit ticket charges, night bag 
deposits, electronic transmittal of information, returned check charges and postage. 
Banks no longer rely to the same extent as they have in the past on the income generated 
from loans. Bank officers have even attended seminars strictly targeted to increasing 
revenue through service charges. Even if the evolution of service charge revenue was 
unintentional, it has become a lucrative opportunity for many banks. 

Clients often receive cryptic monthly statements as to what charges they are 
actually paying for. Consider a scenario wherein supermarket aisles did not indicate the 
price of the food on the shelves. In addition, suppose the receipt did not include a detail 
of the food that was purchased or the price of each item. Instead, only a total due during 
that shopping trip was provided. Or, if the detail was included, it was not listed in readily 
understood terms, but only in the UPC Barcodes of the product. It would not be easy to 
comparison shop, or to determine better ways to shop, such as buying larger sizes of 
items you may use frequently. This scenario is analogous to the way service charges are 
presently handled between banks and their clients. Furthermore, the bank often deducts 



service charges from the earnings credit (Interest) posted to the clients' accounts. To 
continue the supermarket analogy, imagine if the receipt didn't tell you how much you 
actually spent that day, just a running total against some prepaid balance you may have 
on account with the supermarket. Banks may not have intentionally created these 
problems. However, these problems prevent clients from understanding and managing 
their charges effectively. 

These analogies illustrate how many large businesses (clients) currently interact 
with their banks. Coupled with the fact that charges imposed are not listed in layman's 
terms on the bank analysis, it has become extremely difficult for a client to control these 
charges. This weakens the client's financial and bargaining position and gives little 
leverage when negotiating with the client's bank. It also inhibits the client from attaining 
the highest possible earnings credit. 

Many clients have numerous locations (stores) throughout the country who use 
the same bank. The statements issued by the bank offer little help in determining charges 
per store, and do not provide the client's financial managers with the essential data 
required to make appropriate fiscal decisions. 

An additional problem for clients is that each bank uses its own set of terms to 
define its service charges and credits, thereby making it difficult or impossible for a client 
to comparison shop among banks for the best deal on service charges and credits. 

Accordingly, there is an unmet need for analysis tools to allow a client to more 
fully understand bank service charges and credits. The present invention fulfills such a 
need. 

SUMMARY OF THE INVENTION 
A first embodiment of the present invention provides a computer-implemented 
scheme for preparing bank service charge reports for banking activity of a client. In the 
scheme, an electronic translator is provided that converts service charge items of a 
plurality of individual banks, expressed in terminology of the respective individual banks, 
to a service description expressed in a standardized terminology. At least some of the 
service charge items of different banks have the same standardized service description. 
Bank service charge items and bank account data are inputted into a computer. The bank 
service charge items and bank account data are for a specified period of time for one or 
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more banks being used by a client. The bank service charge items and bank account data 
are obtained from one or more bank statements of a client and are expressed in the one or 
more statements in terminology used by the one or more banks. In the computer, one or 
more bank service charge reports are automatically created for the client from the 
5 inputted bank service charge items by using the electronic translator. Each bank service 
charge report provides a breakdown of bank service charges based upon the standardized 
service descriptions. 

A subset of the standardized service descriptions of bank service charges may 
define a total amount of a predefined type of bank service charge costs. In this scheme, 
10 the total amount of a predefined type of bank service charge costs is calculated by adding 
together the bank service charges in the subset. A total cost report is then created for the 
predefined type of bank service charge costs from the calculated total The subset may 
3 define total depository costs, total check costs, total account maintenance costs, or any 

f\ total of a service charge category. 

fs 1 5 A historical database may be provided of average bank service charges for 

2 selected standardized service descriptions based upon bank service charges of a plurality 

0 of clients. The individually broken down bank service charges may then be compared to 
n the average bank service charges. The comparison may be used by the client to identify 
^ potentially excessive bank service charges. Alternatively, a database of bank service 

20 charges may be provided for each of the standardized service descriptions based upon 

1 bank service charges of all of the banks used by the client. The individually broken down 
bank service charges for one of the client's banks may then be compared to the bank 
service charges for other banks used by the client. Again, the comparison may be used 
by the client to identify potentially excessive bank service charges. 

25 One of the standardized service charge items may be deposit ticket costs, wherein 

deposits have a predefined earnings credit rate. The deposit ticket costs and the earnings 
credit rate may be used to calculate a breakeven deposit amount wherein the earnings 
credit exceeds the cost of depositing money. 

In a second embodiment of the present invention, a similar process as described 

30 above is performed for earnings credit items. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

The file of this patent contains at least one drawing executed in color. Copies of 
this patent with color drawings will be provided by the Patent and Trademark Office 
upon request and payment of the necessary fee. 

5 Fig. 1 (provided in parts 1 and 2) summarizes reports generated by the present 

invention, and the information provided by the reports that is not currently available to a 
banking customer; 

Figs. 2-14 show examples of the reports summarized in Fig. 1; 

Fig. 15 is a schematic block diagram of a cross-reference table in accordance with 
1 0 the present invention; 

Fig. 16 shows an entry screen of a form used to collect and store service charges; 

Figs. 17-19 show the contents of tables used in the cross-reference table; 

Fig. 20A and Fig. 20B show screen displays for viewing bank description and 
service description data in the cross-reference table; 

15 Fig. 21 shows a table that stores client data; 

Fig. 22 is a flowchart of a history compilation process of the present invention; 
Fig. 23 shows the contents of a Bank Service Charge History table used for the 
history compilation process; 

Figs. 24 and 25 shows the contents of tables used in a dynamic compilation 
20 process; 

Figs. 26 and 27 are data entry screens used in the report generation process; 
Fig. 28 shows the contents of a Category table which is used to generate the report 
in Fig. 7; 

Fig. 29 is a screen display for selecting categories that the user wishes to appear in 
25 a report; 

Fig. 30 is a screen display for selectively choosing any combination of clients, 
banks, and/or service charges that the user wishes to appear in a report; 
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Figs. 31 and 32 show excerpts from charts that are used to determine costs of a 
particular service charge category; and 

Fig. 33 is a screen display of a Working Sheet Form that is used to summarize 
service description items, and their actual costs and potential cost savings. 

DETAILED DESCRIPTION OF THE INVENTION 
Certain terminology is used herein for convenience only and is not to be taken as 
a limitation on the present invention. In the drawings, the same reference letters are 
employed for designating the same elements throughout the several figures. 

DEFINITIONS 

Comp Balance - balances on hand at bank, subject to the bank's earnings credit. 

Earnings Credit - interest earned on available client's assets, taken after the Federal 
Reserve requirement is deducted. 

Federal Reserve Requirement - amount by law which must be reserved by the bank for 
the Federal Reserve (non-earning asset), usually 10% of client's balance. 

Treasury Bill - (T-Bill) - interest rate set by the US Government. 

Fed Funds Rate - A target interest rate for banks borrowing reserves among themselves. 
It is set by the Federal Open Markets Committee. See web site: 
http://www.bankrate.eom/brm/green/define/#fomc for more information. 

Float - checks which have been deposited but funds are not yet available. 

Revision Date - date of the bank statement (usually issued on monthly basis). 

Basis Point - one one-hundreth of a percent, e.g., 300 basis points is 3%. 

OVERVIEW OF PRESENT INVENTION 

The present invention is implemented as a software program called "The Bank 
Analyzer," that aims to empower clients with the necessary information to ensure fair 
treatment from their bank. The software generates numerous reports which explain in 
layman's terms exactly how bank service charges are broken down. Furthermore, the 
reports are presented in color, making it easy for even a novice to elicit the needed 



information. Armed with such information, a client will understand exactly where and 
how service charges can be reduced and/or earnings credits can be increased. 

Prior to the present invention some clients may have suspected that certain bank 
charges were askew, certain transactions were wasteful, and certain transactions were 
5 unnecessary. However, there was never any solid clear-cut method of substantiating 

these suspicions. Furthermore, it was the belief of clients that the resources necessary to 
even begin an investigation would outweigh any results. The present invention includes a 
plurality of analysis techniques that were previously not available and which are 
implemented in formulas that generate Illumination Reports (described below). The 
10 Illumination Reports yielded by the present invention provide a catharsis to the clients in 
managing their bank charges. 

The basic philosophy of the invention is (1) Effective Management of Bank 
Service Charges; (2) Illumination of Data; and (3) Edification of the Client. 

In the examples provided in the figures and tables below, Bank Names and Client 
15 names are fictitious, but the values and dollar amounts represent actual data. 

Illumination Reports Table (Diagnostic Section) 

Fig. 1 (provided in parts 1 and 2) summarizes in table form each report from the 
diagnostic section of the present invention, highlighting the areas of most impact. In 
many cases, clients are unaware that the data produced by the present invention may be 
20 significant to the financial well being of their company. In other cases, there is no simple 

method of obtaining this data. Lack of data precludes effective management of such 
charges. 

The disclosure below covers various methods and systems to assist clients in 
managing their bank service charges and reducing or eliminating cost incurring 
25 transactions. The focus also centers on elevating client awareness and providing a clear- 
cut analysis of how bank charges are affecting their bottom line. Also, the disclosure 
presents the algorithms of the software which provide this assistance. Exemplary 
methods include: 

1. Revealing actual Bank Service Charges assessed. 
30 2. Minimizing strap charges, i.e., the charges a bank assesses for counting clients 

money, by strapping in denominations which yield the best results. 



3. Comparison of clients' bank charges, i.e., Deposit Tickets, Night Bag Deposits, 
etc. . . with charges of other clients' banks nationwide. Recommendations are made based 
on these national averages. 

4. Evaluation of clients' non-earning assets and recommendations on how to 
maximize revenue from these assets. 

Exemplary algorithms include: 

1 . Using dynamic report generation forms to allow the user to extract the 
necessary information to execute the methods. 

2. Creating cross-reference tables between a bank charge and its description 
according to the particular bank, and the actual charge expressed in layman's terms. 

3. Storing all bank analysis data in a minimum number of tables, and calculating 
and deriving comparison information "on the fly," that is, each time a report is generated. 
This ensures up-to-the-minute accurate information. 

DETAILED DISCLOSURE 

This section outlines what each report accomplishes. Refer to the attached figures 
for examples that correspond to the figure numbers listed. The alphanumeric characters 
refer to data highlighted in the respective figure. For example, "2a" highlights data in 
Fig. 2. 

Bank Balance Data (Fig. 2) - Here the Bank Analyzer exposes the total service 
charge assessed a client for the particular revision date. (2a) Note that the Bank Analyzer 
reveals the actual charge, not the 'net' one which the client now sees. The net charge 
includes a 'cornp' balance, which are client's balances subject to the Banks' earnings 
credit. In some cases, the earnings credit offsets any service charges. That is, the client 
believes that no service charges are being paid, when, in fact, the service charge is 
deducted from any earnings credit due. Fig. 2 shows how this client (SUPER-CON 
Convenient Stores) has paid $57,192.50 in the month of October, 1999 to their banks. 
The report details not only totals but amounts to each bank, e.g., $15,035.17 paid to the 
Western Savings Co. (see line #2 of the example report) 

Earnings Credit Analysis (Fig. 3) 

This report color codes basis point shaved, to indicate abnormal bank activity. 



This report is a scorecard to see how a client's bank performs against the T-bill rate. (3a) 
It indicates the difference between T-Bill and client's actual earnings. The results are 
instantly revealed. This process would consume hundreds of man-hours to produce 
otherwise. Armed with this report, a client can be sure to be credited with at least the 
T-Bill Rate. 

Fed Funds (3b) - This same report also shows the amount of money the bank is 
earning by investing the client's money at the Fed Funds rate. The bank will often invest 
in Fed Funds when they are not using it to generate loan revenue. This gives the client a 
look at how much money the bank can earn from the client's money. 

Income Difference (3 c) - Finally, the income difference is determined, which is 
the difference a client can add to its bottom line if given the corresponding interest rates. 
This generally results in a tremendous increase to the client's bottom line. (3d) 

The Bank Names, as well as the basis points shaved, are printed in degrees of 
color. This facilitates isolating the cases where the client can realize the maximum 
benefit, (3e) 

Earnings Credit And Negative Collected Rates (Fig. 4) 

As a supplement to the Earnings credit Report, this report matches the Earnings 
Credit on positive balances to the rate imposed on Negative Collected funds. Clients 
should be charged the prime interest rate. However, typical findings indicate that clients 
are sometimes charged as much as 300 basis points over prime. A fair bank would 
actually pay at a 1 : 1 ratio by posting earnings at the same rate imposed for the negative 
collected balance. The example report shows one sample bank (4a) which is charging 
significantly higher negative collected rates than earnings credit rates, and one sample 
bank (4b) which is charging fair rates. 

Checks, Deposits And Float Data (Fig. 5) 
Avg Check Size Per Store (5a) 

Occasionally, the bank will assess a float table that does not correspond to actual 
availability. This report will alert client to this fact, by showing them the Avg Check Size 
per store. The client usually has a good idea of the average check a store receives, (e.g., a 
drug store may receive checks that average about $75, whereas a lumberyard may have 



checks averaging $300). If this check size becomes inflated, that is, if the client sees that 
the value is more than it normally would be, then the client knows to investigate and to 
look at each check. In many cases, the client may realize that the bank is not posting the 
checks to his/her account promptly. Without the use of the present invention, discovery 
5 of this fact would consume inordinate amounts of time and resources. 
Out Of District (5b) 

The Out Of District column indicates checks received from customers of the 
client that are drawn on banks outside the local district of the depository bank. It is 
common that most customers bank locally. Therefore, 90% should be in district. The 
10 column indicating 2 Day % is the derived Out Of District number. If this number is not 
within this normal average, it is an alert that the bank may not be providing the proper 
calculation with the float. Also, it is likely that the service charge is increased, because 
Out Of District service charges are generally more expensive. 

Checks On Us (5c) 

1 5 This column determines the presence that a bank has in a region, and On Us 

Checks should be treated as cash and should be made available immediately. Clients can 
now ensure that this is the case. 

Breakdown By Service Charge Groups (Fig. 6) 

The Bank Balance Data report illuminated the actual Total Service Charges 
20 assessed. This report begins putting the Total Service Charge number under the 

microscope, commonly referred to as drill-down reporting in the computer field. This 
report shows the 3 main categories: 

Categories Depository Costs (dep tickets, cash bags, etc. . .) (6a) 
Check Costs (Checks dep, ret items, etc..) (6b) 
25 Account Maintenance (balance reporting) (6c) 

The percentage of the total cost is analyzed, and if these three categories do not 
total close to 100%, then there is a good chance that a particular charge is askew. 
Potential items to investigate include; 

1. Negative interest charge for using uncollected funds (See Earnings Credit and 
30 Negative Collected Rates report) 

2. Bounced check fees - too high? 



These percentages can be compared with other clients' percentages to assist in 
evaluation. Volumes (amount of activity) are also considered, to ensure fair comparisons. 

Breakdown By User Selected Groups (Fig. 7) 

This report allows for the creation of custom reports tailored to each client. 
5 Multiple service charges can be lumped into groups, and then these groups can be 
evaluated. For example, a client may want to see a breakdown of lock box deposit 
charges. Presently, this would require mining every statement for any charge pertaining 
to a lock box. It is not always clearly indicated on the bank statement, so research could 
also be required. Using a conventional analysis process, it could require numerous hours 

10 or more for a client to presently determine all of the lock box charges. In the present 

invention, service charges can be grouped into a category, for example, Lock Box 
Charges. Then, the cross-reference table links all lock box charges: Correspondence, 
Courier, Delivery US Mail, Checks Deposited, etc. . . The report then displays at a glance 
the actual Lock Box charges that a client is paying for. 

15 Lock Box Charges is just an example category. Any group can be analyzed, e.g., 

Depository Costs, Checks, Cash, Coin, etc. . . This information is invaluable to the client 
and has never before been available to the client. Any categories can be supplied, 
yielding hundreds of possibilities for analysis depending on the client's particular 
situation. 

20 Unit Price Summary (Fig. 8) 

This report shows every service charge assessed for the client encompassing all 
stores, all banks, and every line item. The report shows at a glance monthly totals, yearly 
totals (calculated) and also average and weighted average, which considers volume. This 
information was so difficult to obtain using conventional analysis processes that clients 

25 never even considered attempting to acquire it. 

Deposit Ticket Costs (Fig. 9, provided in parts 1 and 2) 
This report examines the prudence of daily deposits by examining every cost 
associated with making a deposit. Since clients make frequent deposits of large sums of 
checks and cash, these charges can be substantial. See 9a for a sample of the total cost 
30 incurred in one year for one client. Prior to the present invention, these charges could 
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never be investigated or verified, and therefore it was not possible to show inefficiencies 
in the client's business practices. This report also determines the daily deposit a client 
must make in order to "break even." It is actually possible for a client to lose money by 
making too many deposits, because the cost of depositing the money outweighs any 
5 earnings credit that may be earned. (9b) 

Finally, the Potential Daily Loss columns show the exact amount lost (9d) if the 
deposit were equal to the column headings. (9c) It should be noted that these values 
depend upon the average return rate a client expects to make. (9e) This value is dynamic, 
and can be changed (inputted) each time the report is generated. 

1 0 Cash Activity Costs (Fig. 1 0) 

Banks charge their clients to count the cash being deposited. Clients are generally 
charged in one of two ways: by strap or per $1000 counted. If a particular client receives 
a lot of cash, it behooves a client to be charged by strap since 1000 single dollar bills is 
charged the same as 10 one hundred dollar bills, even though it is more labor intensive to 

15 count 1000 bills than 10 bills. When charged by strap, 100 100 dollar bills are charged 

the same as 100 1 dollar bills. This decision varies depending on the cash composition of 
the business client is engaged. For example, a newsstand which receives numerous one 
dollar bills is generally better off paying by the 1000, because they will have numerous 
bills. On the other hand, a supermarket may be better off paying by strap, as they may 

20 receive greater denominations. In either case, the reports will highlight this information, 
permitting the client to choose wisely. 

Another area often overlooked by clients is the Rolled coin charges (10a). Clients 
are often charged for the phone call to order the coin! This report allows deeper probing 
into this matter. 

25 Another benefit of the Cash Activity Costs report is that it allows for verification 

that the proper amount of cash is being counted. Currently, clients must assume that the 
banks' report is correct. 

To gain insight into just how much it costs to count cash, see the client's monthly 
charge (10b) and yearly projection. (10c) 
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Banking Activity (Fig. 11) 

This is a summary report, which details vital information such as Deposit Tickets, 
BAI Detail, Night Bags and Rolled Coin charges. It is used as a support and guide to aid 
the client in understanding the detail diagnostic reports. 

5 Analysis By Unit Price (Fig. 12) 

This report takes the Unit Price Summary and drills down every charge to list 
each bank where the charge was derived. It is a lengthy report and is used to isolate 
problem areas when the summary indicates a potential problem area. It serves as a 
complete audit trail tracking the lowest level of detail from each of the client's banks. 

10 Illumination Reports (Action Items) - (Figs. 12-14) 

This section provides a 'blueprint' to the client for the steps which should be 

taken. 

This section also contains every line item of every analysis from every bank for 
the client, and the revision date being considered, (see Fig. 12) This serves as supporting 
1 5 information when the client is making the decisions necessary to eliminate or reduce 
transactions, as well as negotiate with the bank for a reduction in charges which are 
deemed unfair. 

This section contains the following items: 

Working Sheet Report (Fig. 13) - contains a trace number which references 
20 where the original data came from. Provides client with actual volume and cost amounts, 
in addition to the recommendations based on the comparison with similar clients at 
similar banks. It also highlights the potential savings a client can garner from 
implementing these recommendations. Annual projections are extrapolated. 

Projected Savings Report (Fig. 14) shows the clients' potential savings for each of 
25 their banks if the recommendations in Fig. 13 are implemented. 

How the Bank Analyzer Works 

Examples of source code for implementing the Bank analyzer are provided in this 

section. 
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There are 4 sections to the Bank Analyzer, as follows: 
SECTION I - Static Compilation 

SECTION II - Dynamic Compilation - Input of Monthly Bank Analysis Data 
SECTION III - Report Generation - Black Box effect 
5 SECTION IV - Illumination - Meeting with Client 

This portion of the disclosure provides a detailed description of how the present 
invention works, and how it generates the reports to edify the clients. 

SECTION I - Static Compilation 

Static Compilation refers to the acquiring of data and inputting of data which will 
10 form the basis of the eventual evaluation prepared for the client. This section has two 
functions. The first function is to build a master cross-reference table, shown 
schematically in Fig. 15. The second function is history compilation. 

Function #1 - Building A Master Cross-Reference Table 

This function begins with the massive input of every possible service charge from 
15 every bank a client is associated. Each service charge is assigned a unique code and a 

layman's (layperson's) term. Fig. 16 shows an entry screen of a form used to collect and 
store service charges. Every possible charge incurred by the clients is entered here, and 
is assigned a standardized service description. 

Fig. 17 shows a layout and structure of the cross-reference table. This table 
20 houses every bank service charge encountered from the statements. The ServiceCodes are 
a unique way of identifying all charges for all clients. This table can add new entries as 
banks create new service charges, but the information is generally static and therefore this 
table is generated during the Static Compilation section of the Bank Analyzer software. 

Once the service codes are established, it is necessary to maintain a database of 
25 bank information and a link between the bank's service charges and the internal codes of 

the Bank Analyzer. This ensures that clients will see the same terminology when 
analyzing all of their banks, and will also provide the method of translating back to the 
bank's language when dealing with a specific bank. These functions are accomplished 
mainly by the use of two tables, Banks (Fig. 18) and BankServ (Fig. 19). Figs. 17 and 18 
30 combine to make the cross-reference table. The Banks table houses in a computer 
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database each bank that a client is associated. The BankServ table houses in a computer 
database each service charge assessed by a bank, and the corresponding code assigned to 
this service charge by the Bank Analyzer software. The BankDescription field maintains 
the terminology used by the bank for future reference when dealing with the bank. This 
5 foundation data is collected in a computerized form and can be searched and retrieved via 
screen displays as shown in Fig. 20A and Fig. 20B. 

Fig. 20A and Fig. 20B illustrate the use of an electronic translator that converting 
service charge items of a plurality of individual banks, expressed in terminology of the 
respective individual banks, to a service description expressed in a standardized 

10 terminology. The translation goes in the reverse direction when the results are used in 

discussions with the clients' banks. At least some of the service charge items of different 
banks have the same standardized service description. For example, the service charge 
for "Deposit Tickets" (standardized service code 00425) is referred to as "Deposited 
Processed" by Eastern Savings Co. (see Fig. 20A), and is referred to as "Credit Posted" 

15 by Commercial Bank (see Fig. 20B). In another example, "BAI Detail" (Bank 

Administration Institute Detail) (standardized service code 00973) is referred to as "Dep 
Recon Proc" by Eastern Savings Co. (see Fig. 20A), and is referred to as "Recon" by 
Commercial Bank (see Fig. 20B). 

Fig. 21 shows a Clients table that stores client data for the Bank Analyzer 

20 software. 

Sample Visual Basic for Applications (VBA) code for controlling interface of Banks 
table: 



Code 


1 


VERSION 1.0 CLASS 


2 


BEGIN 


3 


MultiUse = -1 True 


4 


END 


5 


Attribute VB_Name = "Form_Banks" 


6 


Attribute VB__GlobalNameSpace = False 


7 


Attribute VB_Creatable = True 


8 


Attribute VB_PredecIaredId = True 


9 


Attribute VB_Exposed = False 


10 


Option Compare Database 


11 


Option Explicit 


12 




13 


Private Sub Commandl6_Click() 


14 


DoCmd.OpenReport "Banks By Code", acViewPreview 


15 


End Sub 


16 




17 


Private Sub Commandl7_Click() 
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18 DoCmd.OpenReport "Banks By Name", acViewPreview 

19 End Sub 
20 

21 Private Sub Command52_Click() 

5 22 DoCmd.OpenReport "Banks Quick Print", acPreview, , "[BankCode] = ,n & MeSBankCode & 

23 End Sub 
24 

25 Private Sub Form_Activate() 

26 DoCmd.Restore 
10 27 End Sub 

28 

29 Private Sub Form_Current() 

30 If Me.NewRecord Then 

31 BankCode.SetFocus 
15 32 End If 

33 End Sub 
34 

35 Private Sub Form_Load() 

36 If Not IsNull(Me.OpenArgs) Then 
20 37 MelBankCode = Me.OpenArgs 

38 End If 

39 End Sub 

Sample VBA code for controlling Service Codes interface: 

Code 

25 1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Form_ServiceCodes" 
30 6 Attribute VB_GlobalNameSpace - False 

7 Attribute VB_CreatabIe = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 
10 Option Compare Database 

35 11 Option Explicit 

12 

13 Private Sub Command 16_Click() 

14 DoCmd.OpenReport "ServiceCodes By Code", acViewPreview 

15 End Sub 
40 16 

17 Private Sub Commandl7_Click() 

18 DoCmd.OpenReport "ServiceCodes By Description", acViewPreview 

19 End Sub 
20 

45 21 Private Sub Form_Current() 

22 If Me.NewRecord Then 

23 ServiceCode.SetFocus 

24 End If 

25 End Sub 
50 26 

27 Private Sub Form_Load() 

28 If Not IsNull(Me.OpenArgs) Then 

29 Me![ServiceCode] = Me.OpenArgs 

30 End If 
55 31 End Sub 

Function #2 - History Compilation 

History compilation entails the process of taking bank statements from previous 
months and entering them into a computer database in the Bank Analyzer. Data collected 
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by this process is used for making accurate and informative comparisons between clients, 
and is helpful in determining appropriate and fair service charges. A flowchart of the 
process is shown in Fig. 22, and field layouts for a Bank Service Charge History table is 
shown in Fig. 23. 

5 SECTION II - Dynamic Compilation - Input of Monthly Bank Statement Data 

The Bank Statement issued by the bank to the client encompasses all stores for 
that client. The Bank Analyzer program provides a data collection form where this 
information is housed. This information is the raw material used to generate the final 
product. The two main tables used in this section are the AnalysisHdr and AnalysisDtl 
10 files. See Fig. 24 and Fig. 25 for the field layouts of these tables. 

Sample VBA Code for controlling interface for AnalysisHdr: 

Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

15 3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Form_AnalysisHdr" 

6 Attribute VB_GlobalNameSpace = False 

7 Attribute VB_Creatable = True 

20 8 Attribute VB_PredecIaredId = True 

9 Attribute VB__Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

25 13 Private Sub BankCode_BeforeUp date (Cancel As Integer) 

14 If Not Me.NewRecord Then 

15 If MsgBox("You are about to change the bank code." & vbCr & "This will change all 
service codes to be under the new bank." & vbCr & "Is this what you want to do?", 
vbOKCancel, "Key Field Change") = vbCancel Then 

30 16 DoCmd.CancelEvent 

17 MelBankCode.Undo 

18 End If 

19 End If 
20 

35 21 End Sub 
22 

23 Private Sub BankCode_GotFocus() 

24 BankCode. Dropdown 

25 End Sub 
40 26 

27 Private Sub BankCode_NotInList(NewData As String, Response As Integer) 

28 Dim Result 

29 Dim msg As String 
30 

45 31 If NewData = "" Then Exit Sub 1 cleared combo box 
32 

33 msg = "" & NewData & " is not in the Banks file." & vbCr & vbCr & "Do you want to add it?" 

34 'Yes 

35 If MsgBox(msg, vbQuestion + vbYesNo) = vbYes Then 

50 36 DoCmd.OpenForm "Banks", , , , acFormAdd, acDialog, NewData 

37 End If 
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38 

39 ' look for new record added 

40 Result = DLookup( n [BankCode]", "Banks", "[BankCode]= & NewData & ""*) 

41 If IsNuII(Result) Then 

5 42 'suppress error message 

43 Response = acDataErrContinue 

44 MsgBox "Please enter a new customer number." 

45 Else 

46 ' they added it 

10 47 Response = acDataErrAdded 

48 End If 

49 End Sub 
50 

51 Private Sub Comma nd45_Click() 

15 52 DoCmd.OpenForm "BankService Select", acNormal 
53 

54 End Sub 
55 

56 Private Sub Command46_Click() 

20 57 DoCmd.OpenForm "Ana lysis Rpt Select" 

58 End Sub 
59 

60 Private Sub Command47_Click() 

61 Dim crt As String 

25 62 crt = "[AnalysisNo] = n & MelAnalysisNo 

63 DoCmd.OpenForm "WorkingSheetHdr", acNormal, , crt, acFormEdit, , True 

64 End Sub 
65 

66 Private Sub Command49_Click() 

30 67 DoCmd.OpenReport "Analysis Rpt", acPreview, , "[AnalysisNo] = 11 & MelAnalysisNo 

68 End Sub 
69 

70 Private Sub Command50_Click() 

71 ' Print the Bank Balance Data Rpt 
35 72 Dim crt As String 

73 crt = "[CustomerNo] = "' & MeSCustomerNo & ""' 

74 crt = crt & " AND [RevDate] = #" & MelRevDate & "#" 

75 DoCmd.OpenReport "Bank Balance Data", acViewPreview, , crt 

76 End Sub 
40 77 

78 Private Sub Command52_Click() 
79 

80 Const twipsPerlnch = 1440 

81 DoCmd.OpenReport "Analysis Rpt", acPreview, , "[AnalysisNo] = " & MelAnalysisNo 
45 82 DoCmd.MoveSize 0, 0, 8 * twipsPerlnch, 6 * twipsPerlnch 

83 End Sub 
84 

85 Private Sub Command53„Click() 

86 If Command53.Caption = "Sequence #" Then 
50 87 Command53.Caption = "Code" 

88 MelAnalysisDtl.Form.OrderBy = "ServiceCode" 

89 Else 

90 Command53.Caption = "Sequence #" 

91 MelAnalysisDtl.Form.OrderBy = "SeqNo" 
55 92 End If 

93 

94 End Sub 
95 

96 Private Sub Command59_Click() 

60 97 Dim crt As String 

98 crt = "[CustomerNo] = & MeSCustomerNo & ,,m 

99 crt = crt & " AND [RevDate] = #" & MelRevDate & "#" 

100 DoCmd.OpenReport "Bank Balance Data By Float", acViewPreview, , crt 

101 End Sub 
65 102 
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103 Private Sub Command60_Click() 

104 Dim crt As String 

105 crt = "[CustomerNo] = '" & Me!CustomerNo & "'" 

106 crt = crt & " AND [RevDate] = #" & MelRevDate & "#" 

107 DoCmd.OpenReport "Bank Balance Data By EC Rate", acViewPreview, , crt 
108 

109 End Sub 
110 

111 Private Sub Command6i_Click() 

112 DoCmd.OpenForm "EC Analysis Select" 

113 End Sub 
114 

115 Private Sub Customer No_BeforeUpdate(Cancel As Integer) 

116 If Not Me.NewRecord Then 

117 If MsgBox("You are about to change Customer number." & vbCr & "This will result in 
these service codes to be under the new customer." & vbCr & "Is this what you want to 
do?", vbOKCancel, "Key Field Change") = vbCancel Then 

118 DoCmd.CancelEvent 

119 MelCustomerNo.Undo 

120 End If 

121 End If 
122 

123 End Sub 
124 

125 Private Sub CustomerNo_GotFocus() 

126 CustomerNo.Dropdown 

127 End Sub 
128 

129 Private Sub CustomerNo_NotInList(NewData As String, Response As Integer) 

130 Dim Result 

131 Dim msg As String 
132 

133 If NewData = "" Then Exit Sub ' cleared combo box 
134 

135 msg = " n & NewData & " is not in the Customer file." & vbCr & vbCr & "Do you want to add 

136 'Yes 

137 If MsgBox(msg, vbQuestion + vbYesNo) = vbYes Then 

138 DoCmd.OpenForm "Customer", , , , acFormAdd, acDialog, NewData 

139 End If 
140 

141 1 look for new record added 

142 Result = DLookup("[CustomerNo]", "Customer", M [CustomerNo]= & NewData & "'") 

143 If IsNull(Result) Then 

144 'suppress error message 

145 Response = acDataErrContinue 

146 MsgBox "Please enter a new customer number." 

147 Else 

148 1 they added it 

149 Response = acDataErrAdded 

150 End If 
151 

152 

153 End Sub 
154 

155 Private Sub Form_Activate() 

156 If CurrentUser() = "Admin" Or CurrentUser = "CarmJr" Then 

157 DoCmd-ShowToolbar "Menu Bar", acToolbarYes 

158 Else 

159 DoCmd.ShowToolbar "Menu Bar", acToolbarNo 

160 End If 

161 MaximizeRestoredForm FormslanalysisHdr 

162 End Sub 
163 

164 Private Sub Form„Close() 

165 DoCmd.OpenForm "Analysis Selector" 

166 End Sub 
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167 

168 Private Sub Form_Current() 

169 If Me.NewRecord Then 

170 CustomerNo.SetFocus 
5 171 End If 

172 End Sub 
173 

174 Private Sub NegCollectedRateJExit(Cancel As Integer) 

175 If Me.NewRecord Then 
10 176 AnalysisDtl.SetFocus 

177 End If 

178 End Sub 

SECTION III - Report Generation 

This section describes the black box effect of the invention and discloses the 
1 5 methods and algorithms used to create the desired results. It also lists sample source code 
of key aspects of the program. 

Once the data in the previous two sections has been amassed, it is now ready to be 
processed. This section illustrates the core functionality of the present invention. A 
majority of the information revealed by the reports was previously unknown to the 
20 clients. 

The following lists Key fields which are utilized throughout the Bank Analyzer 
software: 

AvgDIyPos - the average daily positive balance 

FedPct - the current percentage mandated for the Reserve requirement 

25 AdjBal - adjusted balance 

AvgBal - average balance 

Avg Float - average float 

ECRate - earnings credit rate 

ReserveReq - reserve requirement amount 
30 AvailableBalance - available balance 

Avg Float PerStore - average float per store 

AnalysisNo - unique indexed number 

NegCoilectedRate - negative collected rate, compared with the ECRate 

Report: Bank Balance Data (Fig. 2) 
35 Objective: Determine actual Total service charges paid by clients 

The TotalServiceCharges field is derived from the CalcServTotal function, which 
is fed the information from the analyses entered during the dynamic compilation phase. 
The source code follows, which describes how to derive the actual service charges paid - 
by bank and with totals (2a), for the client being examined. 

40 Public Function CalcServTotaI(R As Report) 

* Determining actual service charges 
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' This function is called for every line displayed and/or printed in the Bank Balance Data report - Fig. 2 in 
the disclosure 
Dim tmpAmount As Double 
Dim msg, crt As String 
5 On Error Resume Next 

* select the bank we're examining 

crt = "[CustomerNo] = m & Forms! analysisHdr.CustomerNo & ,,,,, 

crt = crt & " AND [BankCode] = , " & R.BankCode & ,,,n 

crt = crt & " AND [RevDate] = #" & FormslanalysisHdr.RevDate & "#" 

10 ' obtain fields from the AnaiysisDtl table described in Dynamic Compilation section 

tmpAmount = DSum("[Activity]*[UnitPrice]" / "AnalysisDtlQ", crt) 

" return the answers in variables 
ServicesTotal = ServicesTotal + tmpAmount 
CalcServTotal = tmpAmount 

15 On Error GoToO 

End Function 

Report: Earnings Credit Analysis (Fig. 3) 
Objectives: L Basis points shaved 

2. Projected Fed Fund amount 
20 3. Projected T-Bill amount 

4. Projected Income Difference 
The report generation process begins with a data entry screen, as shown in Fig. 
26. The T-Bill, Fed Funds, Interest Rate and Prime are entered prior to generating the 
report. These are the default values that the program uses in determining the objectives. 
25 These values can be customized by the client to allow for more accurate reporting. 

Results are revealed in a simple color-coded scheme allowing clients to see "at a glance" 
exposure to points of concern. (3e) 

Exemplary source code follows: 

To display the Basis points shaved using color codes: (3e) 

30 Public Function CoIorCodeBanks 

Dim tmpAmt, tmpAmount As Double 
PointsShaved .Visible = True 
' turn Overdraft balances to Red 
Select Case AvgBal 
35 Casels>=0 

AvgBal. ForeColor = vbBlack 
Case Else 

AvgBal.ForeColor = vbRed 
End Select 
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' color code how many points are shaved 
* constants representing colors are stored in an 'include' file 
Select Case PointsShaved 
Case Is >= 200 
5 ' RED --> Worst offenders 

BankCode.ForeColor = vbRed 

BankName.ForeColor = vbRed 

PointsShaved. ForeColor = vbRed 
Case 100 To 199 
10 BankCode.ForeColor = vbCyan 

BankName.ForeColor = vbCyan 

PointsShaved. ForeColor = vbCyan 
Case 26 To 99 

BankCode.ForeColor = vbMagenta 
15 BankName.ForeColor = vbMagenta 

PointsShaved. ForeColor = vbMagenta 
Case 1 To 25 

BankCode.ForeColor = vbDarkGreen 

BankName.ForeColor = vbDarkGreen 
20 PointsShaved. ForeColor = vbDarkGreen 

Case Is <= 0 

PointsShaved.Visible = False 

BankCode.ForeColor = vbBlue 

BankName.ForeColor = vbBlue 
25 PointsShaved.ForeColor = vbBlue 

End Select 
End Function 

Objective algorithms: 

The Fed Funds Income difference is determined by taking the inputted current Fed Funds 
30 percentage and multiplying it by the Available Balance, then subtracting the annualized 
Earnings Credit amount. 

The T-Bill difference is determined by taking the inputted current Treasury Bill 
rate and multiplying by the Available Balance, then subtracting the annualized Earnings 
Credit Amount. 

35 The Interest Yield difference is determined by taking the inputted current Interest 

rate and multiplying by the Available Balance, then subtracting the annualized Earnings 
Credit Amount. 



Key Source Code functions and examples: (3c) 

FedFundsIncomeDifference=[Forms]![EC Analysis Select]![FedFunds]*[AvailabieBal]-([EarningsCredit]*12) 
40 TBillDifference=[Forms]![EC Analysis Select] ![Tbill]*[AvailableBal]-([EarningsCredit]*12) 

IncomeDifference= [Forms]! [EC Analysis Select]![InterestRate]*[AvailableBal]-([EamingsCredit]*12) 

Source Code display: 

SELECT IIf([AvgDlyPos]=0,([FedPct]/100)*[AdjBal] A ([FedPct]/100)*[AvgDlyPos]) AS ReserveReq, 
AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisHdr.AvgBal, 
45 AnalysisHdr.AvgFloat, AnalysisHdr.FedPct, AnalysisHdr.ECRate, [AvgDIyNeg]+[AdjBal] AS AvgDIyPos, 

-21- 



AnalysisHdr.AvgDIyNeg, Banks.BankName, Customer.CustomerName, [AvgBal]-[AvgFloat] AS AdjBal, 
Banks.City, Banks.State, [AvgDlyPos]-[ReserveReq] AS AvailableBalance, [AvaiIableBaIance]*[ECRate]/1200 
AS EarningsCredit, AnalysisHdr.NumberOfStores, [AvgFloat]/[NumberOfStores] AS AvgFloatPerStore, 
AnalysisHdr.AnalysisNo, Hf([AvgDlyPos]=0,[AdjBal]-[FedRes],[AvgDlyPos]-[FedRes]) AS AvailableBal, 
5 IIf([AvgDiyPos]=0 / ([FedPct]/100)*[AdjBal] / ([FedPct]/100)*[AvgDlyPos]) AS FedRes, 

AnalysisHdr.NegCollectedRate 

FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks.BankCode = 
AnalysisHdr.BankCode) ON Customer.CustomerNo = AnalysisHdr.CustomerNo; 

Public Function CalcTBillTotal(R As Report) 

1 0 Dim tmpAmount As Double 

If R'TBilllncomeDifference > 0 Then 

tmpAmount = RITBilllncomeDifference 

TBillDifference = TBillDifference + tmpAmount 
End If 

15 If RIFedFundsIncomeDifference > 0 Then 

FedFundsDifference = RIFedFundsIncomeDifference + FedFundsDifference 
End If 

If RIInterestYieldlncomeDifference > 0 Then 
InterestYieldDifference = RlInterestYieldlncomeDifference + InterestYieldDifference 
20 End If 

CalcTBillTotal = tmpAmount 
End Function 

To derive sums and annualized results, the totals are added for each line 
(corresponding to one client Bank), and then multiplied by 12 for annualization. The 
25 report's objectives are supported by displaying the Average Investable income and the 

Annualized Projected income. (3d) 

Report: Earnings Credit And Negative Collected Rates (Fig. 4) 

Objective: Match the Earnings Credit on positive balances to the rate imposed on ' 

Negative Collected funds. 
30 The report generation process begins with a data entry screen, as shown in 

Fig. 27. 

Objective algorithm: 

Display the Negative collected rate on the same report with the Earnings Credit 

rate. 



35 Exemplary Source code: 

Selects and displays the data shown on Fig. 4. 

SELECT IIf([AvgDlyPos]=0,([FedPct]/100)*[AdjBal],([FedPct]/100)*[AvgDlyPos]) AS ReserveReq, 
AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisHdr.AvgBal, 
AnalysisHdr.AvgFloat, AnalysisHdr. Fed Pet, AnaiysisHdr.ECRate, [AvgDlyNeg]+[AdjBal] AS AvgDlyPos, 
40 AnaiysisHdr.AvgDIyNeg, Banks.BankName, Customer.CustomerName, [AvgBal]-[AvgFloat] AS AdjBal, 
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Banks.City, Banks.State, [AvgDiyPos]-[ReserveReq] AS AvailableBaiance, [AvailableBalance]*[ECRate]/1200 
AS EarningsCredit, AnalysisHdr.NumberOfStores, [AvgFloat]/[NumberOfStores] AS AvgFloatPerStore, 
AnaiysisHdr.AnalysisNo, IIf([AvgDlyPos]=0 / [AdjBal]-[FedRes] / [AvgD[yPos]-[FedRes]) AS AvailabieBal, 
IIf([AvgDlyPos]=0,([FedPct]/100) :tc [AdjBal] / ([FedPct]/100)*[AvgDlyPos]) AS FedRes, 
5 AnalysisHdr.NegCoilectedRate 

FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks.BankCode = 

AnalysisHdr.BankCode) ON Customer.CustomerNo = AnalysisHdr.CustomerNo; 
Report: Checks Deposits and Float Data (Fig. 5) 

Objectives: L Determine actual availability date of client's monies (5a) 
10 2. Show abnormal Out Of District activity (5b) 

3. Verify immediate availability of On Us activity (5c) 



Exemplary Source Code for report output: 

The INNER JOIN ensures proper bank and client information extracted. 

SELECT IIf([AvgDiyPos]=0 / ([FedPct]/100)*[AdjBai] / ([FedPct]/100)*[AvgDIyPos]) AS ReserveReq, 

1 5 AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisHdr.AvgBal, 

AnalysisHdr.AvgFloat, AnalysisHdr.FedPct, AnalysisHdr.ECRate, [AvgDlyNeg]+[AdjBal] AS AvgDIyPos, 
AnalysisHdr.AvgDIyNeg, Banks.BankName, Customer.CustomerName, [AvgBal]-[Avg Float] AS AdjBal, 
Banks.City, Banks.State, [AvgDlyPos]-[ReserveReq] AS AvailableBalance, [AvailableBalance]*[ECRate]/1200 
AS EarningsCredit, AnalysisHdr.NumberOfStores, [AvgFloat]/[NumberOfStores] AS AvgFloatPerStore, 

20 AnaiysisHdr.AnalysisNo, Hf([AvgDlyPos]=0,[AdjBal]-[FedRes],[AvgDIyPos]-tFedRes]) AS AvailabieBal, 

IIf([AvgDlyPos]=0,([FedPct]/100)*[AdjBal],([FedPct]/100)*[AvgDlyPos]) AS FedRes, 
AnalysisHdr.NegCoilectedRate, Customer. PDL1, Customer. PDL2, Customer. PDL3, Customer. PDL4, 
AnalysisHdr.ChecksOutDist, AnaiysisHdr.ChecksInDist, AnalysisHdr.MixedDeposits, 
AnalysisHdr.DepositTickets, AnalysisHdr.ChecksOnUs, 

25 IIf([TotalChecksFIoated]>0,[AvgFloat]/[TotalChecksFloated]*30,0) AS AvgCheckSize, 

[ChecksOutDist]+[ChecksInDist]+[MixedDeposits] AS TotalChecksFloated, AnalysisHdr.DepCost, 
AnalysisHdr.BAICost, AnalysisHdr.DepReconCost, AnalysisHdr.NightBagsCost 
FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks.BankCode = 
AnalysisHdr.BankCode) ON Customer.CustomerNo = AnalysisHdr.CustomerNo 

30 ORDER BY AnalysisHdr.AvgFloat DESC; 



Sample VBA Code: Checks Deposits and Float Data 



Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

35 3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Report_Checks Deposits and Float Data" 

6 Attribute VB_GlobalNameSpace - False 

7 Attribute VB„CreatabIe = True 

40 8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

45 13 Private Sub GroupFooterl_Print(Cancel As Integer, PrintCount As Integer) 

14 ? 

15 1 

16 End Sub 
17 
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18 Private Sub DetailJ>rint(Cancel As Integer, PrintCount As Integer) 

19 ' this is done in the Activate Event now 

20 'Dim tDT, tMD, tCOU, tCID, tCOD As Double 

21 f Call CalcCDFData(Report, tDT 7 tMD, tCOU, tCID, tCOD) 
5 22 'DepositTickets = tDT 

23 'MixedDeposits = tMD 

24 XhecksOnUs = tCOU 

25 ChecksInDist = tCID 

26 'ChecksOutDist = tCOD 
10 27 End Sub 

28 

29 Private Sub Report_Activate() 

30 ' generate the activity data 

31 Call CalcCDFData 
15 32 End Sub 

33 

34 Private Sub Report_Deactivate() 

35 Application. Echo True 

36 End Sub 
20 37 

38 Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

39 Dim tDT, tMD, tCOU,tCID,tCOD As Double 

40 Call GetCheckDepTotals(Report, tDT, tMD, tCOU, tCID, tCOD) 

41 SumDepositTickets = tDT 
25 42 SumMixedDeposits = tMD 

43 SumChecksOnUs = tCOU 

44 SumChecksInDist ~ tCID 

45 SumChecksOutDist = tCOD 

46 End Sub 

30 Report: Breakdown By Service Charge Groups (Fig. 6) 

Objectives: 1 . Categorize Depository Costs (6a) 

2. Categorize Check Costs (6b) 

3. Categorize Account Maintenance Costs (6c) 



Sample VBA Code: Breakdown By Service Charge Groups 
35 For the report output: 

SELECT IIf([AvgDlyPos]=0 / ([FedPct]/100)*[AdjBal] / ([FedPct]/100)*[AvgDlyPos]) AS ReserveReq, 
AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisHdr.AvgBal, AnalysisHdr.AvgFloat, 
AnalysisHdr.FedPct, AnalysisHdr.ECRate, [AvgDlyNeg]+[AdjBal] AS AvgDlyPos, AnalysisHdr.AvgDIyNeg, Banks. BankName, 
Customer.CustomerName, [AvgBal]-[AvgFloat] AS AdjBal, Banks.City, Banks.State, [AvgDlyPos]-[ReserveReq] AS 
40 AvailableBalance, [AvailableBalance]*[ECRate]/1200 AS EarningsCredit, AnalysisHdr.NumberOfStores, 

[AvgFloat]/[NumberOfStores] AS AvgFloatPerStore, AnalysisHdr.AnalysisNo, IIf([AvgDlyPos]=0,[AdjBal]- 
[FedRes],[AvgDlyPos]-[FedRes]) AS AvailableBal, 

IIf([AvgDlyPos]=0,([FedPct]/100)*[AdjBal] / ([FedPct]/100)*[AvgDlyPos]) AS FedRes, AnalysisHdr.NegColiectedRate, 
Customer.PDLl, Customer. PDL2, Customer. PDL3, Customer, PDL4, AnalysisHdr.ChecksOutDist, AnalysisHdr.ChecksInDist, 
45 AnalysisHdr.MixedDeposits, AnalysisHdr. DepositTickets, AnalysisHdr.ChecksOnUs, 

IIf([TotalChecksFIoated]>0,[AvgFloat]/[TotalChecksFioated]*30 / 0) AS AvgCheckSize, 

[ChecksOutDist]+[ChecksInDist]+[MixedDeposits] AS TotalChecksFloated, AnalysisHdr. DepCost, AnalysisHdr.BAICost, 
AnalysisHdr. DepReconCost, AnalysisHdr.NightBagsCost 

FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks. BankCode = AnalysisHdr.BankCode) ON 
50 Customer.CustomerNo = AnalysisHdr.CustomerNo 

ORDER BY AnalysisHdr.AvgFloat DESC; 



For the calculations: 



Code 

1 VERSION 1.0 CLASS 
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2 BEGIN 

3 MultiUse = -1 'True 

4 END 

5 Attribute VB_Name = M Report_Breakdown By Service Charge Groups" 
5 6 Attribute VB_GlobalNameSpace = False 

7 Attribute VB_CreatabIe = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 
10 Option Compare Database 

10 11 Option Explicit 

12 

13 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

14 Dim crt As String 

15 crt = "[CustomerNo] = & FormslanalysisHdr. CustomerNo & "'" 
15 16 crt = crt 8t " AND [BankCode] = '" & Report-BankCode & ""' 

17 crt = crt & " AND [RevDate] = #" & Forms!analysisHdr.RevDate & "#" 
18 

19 AnnualServiceCharges = DSum("[ExtCharge]", "AnalysisDtlQ", crt) * 12 

20 ' Calculate the totals 

20 21 DepositCost = CalcCostTotal(crt, 2) * 12 

22 CheckDepCost = CalcCostTotal(crt, 1) * 12 

23 BallnfoCost = CalcCostTotal(crt, 3) * 12 

24 TotalCost = DepositCost + CheckDepCost + BallnfoCost 

25 ' derive Ws 

25 26 DepositCostPer = DepositCost / AnnualServiceCharges 

27 CheckDepCostPer = CheckDepCost / AnnualServiceCharges 

28 BallnfoCostPer = BallnfoCost / AnnualServiceCharges 

29 TotalCostPEr = TotalCost / AnnualServiceCharges 
30 

30 31 End Sub 

32 

33 Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

34 Dim crt As String 

35 crt = "[CustomerNo] = & Forms!analysisHdr.CustomerNo & n,n 

35 36 crt = crt & " AND [RevDate] = #" & FormsSanalysisHdr.RevDate & "#" 

37 

38 SAnnualServiceCharges = DSum("[ExtCharge] ,, f "AnalysisDtlQ", crt) * 12 

39 1 Calculate the totals 

40 SDepositCost = CalcCostTotal(crt, 2) * 12 
40 41 SCheckDepCost = CalcCostTotal(crt, 1) * 12 

42 SBallnfoCost = CalcCostTotaKcrt, 3) * 12 

43 STotalCost = SDepositCost + SCheckDepCost + SBallnfoCost 

44 1 derive Ws 

45 SDepositCostPer = SDepositCost / SAnnualServiceCharges 

45 46 sCheckDepCostPer = SCheckDepCost / SAnnualServiceCharges 

47 SBallnfoCostPer = SBallnfoCost / SAnnualServiceCharges 

48 STotalCostPer = STotalCost / SAnnualServiceCharges 
49 

50 End Sub 

50 Report: Breakdown By User Supplied Groups (Fig. 7) 

Objective: Categorize any user defined bank cost 
To achieve this special objective, an additional Category table, shown in Fig. 28, is added 
to the database. This table works in conjunction with the Service Codes table shown in 
Fig. 17. A Category Select Form is also used in this process. A screen display of the 

55 form is shown in Fig. 29. The example in Fig. 29 shows categories, 60 (night bags), 62 

(rolled coins) and 64 (return checks) as being selected. 
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Sample VBA Code: Breakdown By Service Charges Variable 



Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

5 3 MultiUse = -1 'True 

4 END 

5 Attribute VBJMame = "Report_Breakdown By Service Charges Variable" 

6 Attribute VB_GIobalNameSpace = False 

7 Attribute VB_Creatable = True 

10 8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

15 13 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

14 Dim crt, CatCodel, CatCode2, CatCode3 As String 

15 crt - "[CustomerNo] = '" & FormslanalysisHdr.CustomerNo & ""' 

16 crt = crt & " AND [BankCode] = 111 & Report.BankCode & 11111 

17 crt = crt & " AND [RevDate] = #" & FormslanalysisHdr.RevDate St "#" 
20 is 

19 CatCodel = Forms!CatSeIect!CatCodel 

20 CatCode2 = Forms!CatSelect!CatCode2 

21 CatCode3 = Forms!CatSelect!CatCode3 

22 AnnualServiceCharges = DSum("[ExtCharge]", "AnalysisDtlQ", crt) * 12 
25 23 ' Calculate the totals 

24 ' Var names are carried over from base report, they're actually Catl, Cat2, Cat3 

25 DepositCost = CalcCostTotaI(crt, CatCodel) * 12 

26 CheckDepCost = CalcCostTotal(crt, CatCode2) * 12 

27 BallnfoCost = CalcCostTotal(crt, CatCode3) * 12 

30 28 TotalCost = DepositCost + CheckDepCost + BallnfoCost 

29 ' derive %'s 

30 DepositCostPer = DepositCost / AnnualServiceCharges 

31 CheckDepCostPer = CheckDepCost / AnnualServiceCharges 

32 BallnfoCostPer = BallnfoCost / AnnualServiceCharges 
35 33 TotalCostPEr = TotalCost / AnnualServiceCharges 

34 

35 End Sub 
36 

37 Private Sub PageHeaderJ>rint(Cancel As Integer, PrintCount As Integer) 

40 38 Dim crt As String 

39 

40 crt = "[CategoryCode] = " & Forms!CatSelect!CatCodel 

41 Cat La be II = DLookup("[Description] n , "Category", crt) 
42 

45 43 crt = "[CategoryCode] = " & Forms!CatSelect!CatCode2 

44 CatLabel2 = DLookup("[Description]" / "Category", crt) 
45 

46 crt = "[CategoryCode] = " & Forms!CatSelect!CatCode3 

47 CatLabel3 = DLookup("[Description]", "Category", crt) 
50 48 

49 End Sub 
50 

51 Private Sub Report_Activate() 

52 DoCmd. Maximize 
55 53 End Sub 

54 

55 Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

56 Dim crt, CatCodel, CatCode2, CatCode3 As String 

57 crt = "[CustomerNo] = m & FormslanalysisHdr.CustomerNo & "'" 

60 58 crt = crt & " AND [RevDate] = #" & FormsIanalysisHdr.RevDate & "#" 

59 

60 CatCodel = Forms!CatSelect!CatCodel 

61 CatCode2 = Forms!CatSelect!CatCode2 

62 CatCode3 = Forms!CatSelect!CatCode3 

65 63 SAnnualServiceCharges = DSum("[ExtCharge]", "AnalysisDtlQ", crt) * 12 
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64 ' Calculate the totals 

65 SDepositCost = CaIcCostTotal(crt, CatCode2) * 12 

66 SCheckDepCost = CalcCostTotal(crt, CatCodel) * 12 

67 SBallnfoCost = CaIcCostTotal(crt, CatCode3) * 12 

5 68 STotalCost = SDepositCost + SCheckDepCost + SBallnfoCost 

69 1 derive %'s 

70 SDepositCostPer = SDepositCost / SAnnualServiceCharges 

71 sCheckDepCostPer = SCheckDepCost / SAnnualServiceCharges 

72 SBallnfoCostPer = SBallnfoCost / SAnnualServiceCharges 
10 73 STotalCostPer = STotalCost / SAnnualServiceCharges 

74 End Sub 

This report uses the same query as Breakdown by Service Charge groups for Report 
selection. However, in this report, the users can supply their own categories. 



Report: Unit Price Summary (Fig. 8) 
15 Objective: Show every service charge assessed to a client 

Sample code for the report output: 



SELECT AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisDtl.ServiceCode, 
Banks.BankName, Banks.City, Banks.State, Customer.CustomerName, AnalysisDtl.Activity, 
AnalysisDtl.UnitPrice, SeiviceCodes.ServiceDescription, [UnitPrice]*[Activity]/[Per] AS ExtAmt, 

20 ServiceCodes.Per, AnalysisDtl.ConCharge, AnalysisDti.ConDate 

FROM ServiceCodes INNER JOIN (((AnalysisDtl INNER JOIN Banks ON AnaiysisDti.BankCode = 
Banks.BankCode) INNER JOIN Customer ON AnalysisDtl.CustomerNo = Customer.CustomerNo) INNER JOIN 
AnalysisHdr ON (AnalysisHdr.RevDate = AnalysisDtl. RevDate) AND (AnalysisHdr.BankCode = 
AnaiysisDti.BankCode) AND (AnalysisHdr.CustomerNo = AnalysisDti.CustomerNo) AND 

25 (Customer.CustomerNo = AnalysisHdr.CustomerNo) AND (Banks.BankCode = AnalysisHdr.BankCode)) ON 

ServiceCodes.ServiceCode = AnalysisDtl.ServiceCode 
WHERE (((AnalysisDtLServiceCode)< M 95000 ,t )); 

This report features a customizable form to further allow varying degrees of results. A 
sample screen display of the form is shown in Fig. 30. The following source code 
30 controls the flexible data entry form shown in Fig. 30. It allows for the user to selectively 
choose any combination of clients, banks, and/or service charges. It also allows for entry 
of date ranges and dollar figures, and provides a method of highlighting particular 
information once the report is generated. 



Code 

35 1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 'True 

4 END 

5 Attribute VB_Name = "Form_AnalysisRpt Select" 
40 6 Attribute VB_GlobalNameSpace = False 

7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 
10 Option Compare Database 

45 11 Option Explicit 

12 

13 Private Sub BankCheck_Click() 
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14 ' if the user wants every bank, don't let them select from the list box 

15 Dim ctl As Control, itm As Variant 

16 Set ctl = MeiBankList 

17 If BankCheck Then 

18 1 turn off anything they had selected 

19 For Each itm In ctl.ItemsSelected 

20 ctl.Selected(itm) = False 

21 Next itm 

22 ' turn the Bank list box and counter OFF 

23 BankList.Enabled = False 

24 BanksSelected.Visible - False 

25 ' turn the OK button ON 

26 Commandie.Enabled = True 

27 Else 

28 1 turn the Bank List box and counter ON 

29 BankList.Enabled = True 

30 BanksSelected.Visible = True 

31 End If 
32 

33 End Sub 
34 

35 Private Sub BankList_Click() 
36 

37 ' Controls the OK button, and makes sure we don't build too big of a query 

38 ' This procedure is also triggered when the Customer & service boxes are clicked 

39 Dim totSelected As Integer 

40 totSelected = Ban kList.ItemsSelected .Count + CustomerList.ItemsSelected .Count + 
ServiceList.ItemsSelected.Count 

41 

42 Select Case totSelected 

43 Case 0 

44 If BankCheck Or ServiceCheck Or CustomerCheck Then 

45 Commandie.Enabled = True 

46 Else 

47 Commandl6. Enabled = False 

48 End If 
49 

50 Case Is <= 30 ' Access limit is 40, I'm not taking any chances with memory 

51 Commandie.Enabled = True 

52 Case Else 

53 Commandie.Enabled = False 

54 MsgBox "The maximum number of custom selections is 30." & vbCr 8t "Please 
de-select some items and try again.", vbOKOnly, "Too many items selected" 

55 End Select 
56 

57 End Sub 
58 

59 Private Sub Command 16_ClickO 

60 'October 99 Carmen DeLeo, Jr. 

61 ' crtAll will be the concatenation of all the built criteria 

62 Dim Q As QueryDef, db As Database 

63 Dim highlightCustNo, crtBank, crtService, crtCustomer, crtAll As String 

64 Dim ctlBank, ctlService, ctlCustomer As Control 

65 Dim itm As Variant 
66 

67 ' get the bank(s) selected 

gg * ************************ 

69 Set ctlBank = Me![BankList] 

70 If Not BankCheck Then ' If they didn't select All banks, what did they select? 

71 For Each itm In ctlBank.ItemsSelected 

72 'Build the criteria string 

73 If Len(crtBank) = 0 Then 

74 crtBank = "[BankCode] = "' & ctl BankJtem Data (itm) & '"" 

75 Else 

76 crtBank = crtBank & " OR [BankCode] = " & ctlBank.ItemData(itm) & ,M " 

77 End If 
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78 Next itm 

79 If Len(crtBank) = 0 Then 

80 MsgBox "No Banks selected." 

81 Exit Sub 

82 End If 

83 Else 

84 ' give us every bank 

85 crtBank = "[BankCode] > '0 m 

86 End If 
87 

88 ' get the Services 

39 • **************** 

90 Set ctlService = Me![ServiceList] 

91 If Not ServiceCheck Then ' If they didn't select All services, what did they select? 

92 For Each itm In ctlService. ItemsSelected 

93 1 Build it 

94 If Len(crtService) = 0 Then 

95 crtService = "[ServiceCode] = ,,f & ctlService.ItemData(itm) & 

96 Else 

97 crtService = crtService & " OR [ServiceCode] = ™ & ctlService.Item Data (itm) & "*" 

98 End If 

99 Next itm 

100 If Len(crtService) = 0 Then 

101 MsgBox "No service codes selected." 

102 Exit Sub 

103 End If 

104 Else 

105 1 Give us every service code 

106 crtService = "[ServiceCode] > '0'" 

107 End If 
108 

109 1 get the customer accounts 

111 Set ctlCustomer = Me![CustomerList] 

112 If Not Customer-Check Then 

113 For Each itm In ctlCustomer.ItemsSelected 

114 If Len(crtCustomer) = 0 Then 

115 crtCustomer = "[CustomerNo] = ,H & ctlCustomer JtemData(itm) & '"" 

116 Else 

117 crtCustomer = crtCustomer & " OR [CustomerNo] = '" & ctlCustomer.ItemData(itm) 
& 

118 End If 

119 Next itm 

120 If Len(crtCustomer) = 0 Then 

121 MsgBox "No customers selected." 

122 Exit Sub 

123 End If 

124 Else 

125 ' give us every customer 

126 crtCustomer = "[CustomerNo] > '0'" 

127 End If 
128 

129 ' Put it all together for banks, services, clients 

130 crtAII = "(" & crtBank & ") AND (" & crtService & ") AND (" & crtCustomer & ")" 

131 1 tack on date and dollar ranges 

132 crtAII = crtAII & " AND [RevDate] >= #" & MeSStartDate & "# AND [RevDate] <= #" & 
MeSEndDate & "#" 

133 crtAII = crtAII & " AND [UnitPrice] >= " & Val(Me!StartDolIar) & " AND [UnitPrice] <= " & 
Val(MelEndDoIlar) 

134 

135 ' Run the report with built criteria 

136 If ShowSummarylnfo Then 

137 DoCmd.OpenReport "Analysis By Unit Price Summary", acViewPreview, , crtAII 

138 Else 

139 DoCmd.OpenReport "Analysis By Unit Price", acViewPreview, , crtAII 

140 End If 
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141 End Sub 
142 

143 Private Sub Command 17_Click() 

144 DoCmd.Close acForm, "AnalysisRpt Select" 

145 End Sub 
146 

147 Private Sub Custom erCheck_Click() 

148 ' if the user wants every Customer, don't let them select from the list box 

149 Dim ctl As Control, itm As Variant 

150 Set ctl = MelCustomerList 
151 

152 If Customer-Check Then 

153 1 turn off anything they had selected 

154 For Each itm In ctl.ItemsSelected 

155 ctl.Selected(itm) = False 

156 Next itm 

157 1 turn the Customer List box and counter OFF 

158 CustomerList. Enabled = False 

159 CustomersSelected.Visible = False 

160 1 turn the OK Button ON 

161 Command 16.Enabled = True 

162 Else 

163 1 turn the Customer List box and counter ON 

164 CustomerList. Enabled = True 

165 CustomersSelected.Visible = True 

166 End If 

167 End Sub 
168 

169 Private Sub CustomerList_Click() 

170 BankList_Click 

171 End Sub 
172 

173 Private Sub ServiceCheck_Click() 

174 Dim ctl As Control, itm As Variant 
175 

176 ' if the user wants every Service, don't let them select from the list box 

177 Set ctl = MeSServiceList 

178 If ServiceCheck Then 

179 ' turn off anything they had selected 

180 For Each itm In ctl.ItemsSelected 

181 ctl.Selected(itm) = False 

182 Next itm 

183 1 turn off the whole List box and counter 

184 ServiceList.Enabled = False 

185 ServicesSelected.Visible = False 
186 

187 1 put the OK button back ON 

188 Command 16. Enabled = True 

189 Else 

190 1 turn the list box and counter back ON 

191 ServiceList.Enabled = True 

192 ServicesSelected.Visible = True 

193 End If 

194 End Sub 
195 

196 Private Sub ServiceList_Click() 

197 BankList_Click 

198 End Sub 



Once the criteria are set, the report is generated. 

The following sample code generates the actual report of Unit Price Summary (Fig. 8) 
and also controls the highlighting of particular information as specified by the user above. 
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Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 True 
5 4 END 

5 Attribute VB_Name = "Report_Analysis By Unit Price" 

6 Attribute VB_G I obal Name Space = False 

7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 
10 9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

13 Private Sub Detail_Print( Cancel As Integer, PrintCount As Integer) 

15 14 If Not IsNull(Forms![AnalysisRpt Select]! high I ightCustNo) Then 

15 If Customer No = Nz(Forms![AnalysisRpt Select]!highlightCustNo) Then 

16 CustomerNo.ForeColor = 255 

17 CustomerName.ForeColor = 255 

18 BankName.ForeColor = 255 
20 19 BankCode.ForeColor = 255 

20 City.ForeColor = 255 

21 State. ForeColor = 255 

22 Activity.ForeColor = 255 

23 UnitPrice.ForeColor = 255 
25 24 ExtAmt.ForeColor = 255 

25 RevDate.ForeColor = 255 

26 Else 

27 CustomerNo.ForeColor = 0 

28 CustomerName.ForeColor = 0 
30 29 BankName.ForeColor = 0 

30 BankCode.ForeColor = 0 

31 City.ForeColor = 0 

32 State.ForeCoIor = 0 

33 Activity.ForeColor = 0 
35 34 UnitPrice.ForeColor = 0 

35 ExtAmt.ForeColor = 0 

36 RevDate.ForeColor = 0 

37 End If 

38 End If 
40 39 End Sub 

40 

41 Private Sub Report_Activate() 

42 DoCmd.Maximize 

43 If Forms![AnalysisRpt Select]!ShowNames Then 
45 44 CustomerName.Visible = True 

45 Else 

46 CustomerName.Visible = False 

47 End If 
48 

50 49 End Sub 
50 

51 Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer) 

52 Dim hCust As String 

53 hCust = Nz(Forms![AnalysisRpt Select]!highlightCustNo, "") 
55 54 If Len(hCust) > 0 Then 

55 HighlightedCustomer = Forms! [AnalysisRpt Select]!highlightCustNo 

56 HighlightedCustomerName = D Lookup ("[Customer Name]", "Customer", "[CustomerNo] 
= " , &hCust&"" 1 ) 

57 Else 

60 58 Label36.Visible = False 

59 End If 

60 End Sub 
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Report: Deposit Ticket Costs (Fig. 9) 



Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Report_Deposit Ticket Costs" 

6 Attribute VB_GlobaINameSpace = False 

7 Attribute VB_CreatabIe = True 

8 Attribute VB_PrededaredId - True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

13 Private Sub GroupFooterl_Print(Cancel As Integer, PrintCount As Integer) 

14 ' 

15 ' 

16 End Sub 
17 

18 Private Sub DetaiLPrint(Cancel As Integer, PrintCount As Integer) 

19 ' setup our temp variables 

20 Dim tD, tDepC, tBAI, tBAIO, tBAIC, tDR, tDRC, tDRO, tDepR, tDepRC, tNB 7 tNBC As Double 

21 ' go get totals 

22 Call CalcDepTicketData(Report 7 tBAI, tBAIO, tDR, tDRO, tDepR, tDepRC, tNB) 

23 f assign fields on report 

24 'Deposit = tD 

25 'DepCost = tDepC *** Commented fields are calculated in Activate proc 

26 BAI = tBAI 

27 'BAICost = tBAIC 

28 BAIOTher = tBAIO 

29 DepRecon = tDR 

30 'DepReconCost = tDRC 

31 DepReconOther = tDRO 

32 DepReorder = tDepR 

33 DepReorderCost = tDepRC 

34 NightBags = tNB 

35 'NightBagsCost = tNBC 

36 On Error Resume Next 

37 If Lossl > 0 Then Lossl.ForeColor = vbRed Else Lossl.ForeColor = vb Black 

38 If Loss2 > 0 Then Loss2.ForeColor = vbRed Else Loss2.ForeColor = vbBlack 

39 If Loss3 > 0 Then Loss3.ForeColor = vbRed Else Loss3.ForeColor = vbBlack 

40 If Loss4 > 0 Then Loss4.ForeColor = vbRed Else Loss4.ForeColor = vbBlack 

41 On Error GoTo 0 

42 End Sub 
43 

44 Private Sub Report_Activate() 

45 Call WriteDepTicketData 

46 End Sub 
47 

48 Private Sub Report_Deactivate() 

49 Application. Echo True 

50 End Sub 

51 

52 Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

53 Dim tl, t2, t3, t4, t5, t6, t7, t8, t9, tlO, til, tl2 As Double 

54 Call GetDepTicketTotals(Report, tl, t2, t3, t4, t5, t6, t7, t8 f t9, tlO, tll 7 tl2) 

55 Sum Deposit = tl 

56 SumDepCost = t2 

57 Sum BAI = t3 

58 SumBAICost = t4 

59 SumBAIOther = t5 

60 Sum DepRecon = t6 

61 SumDepReconCost = t7 
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62 SumDepReconOther = t8 

63 SumDepReorder = t9 

64 SumDepReorderCost = tlO 

65 SumNightBags = til 

5 66 SumNightBagsCost = tl2 

67 
68 

69 End Sub 
70 

10 71 Private Sub ReportHeader_Print( Cancel As Integer, PrintCount As Integer) 

72 InitVars 

73 End Sub 

Multiplying the SumDeposit field in line 55 above by 12 provides the projected Annual 
cost incurred for one year's worth of deposit costs. (9a) 
15 The BreakEvenDeposit (9a) is determined by the following formula: 

((([DepCost]+[BAICost]+[DepReconCost]+[NightBagsCost])/[DepositTickets]) ;f: 365)/ 
[Forms] ![DepCost Select] ![ReturnRate] 

where the ReturnRate is a value inputted by the user (9e) which represents a typical net 
profit percentage for the particular client. 
20 The values referred to in (9c) are stored in the client's profile in the database. 

Lines 37 through 40 of the code determine the appropriate color for values 
referenced in (9d). 

Report: Cash Activity Costs (Fig. 10) 
Sample VBA Code for CashActivity Costs 

25 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

Dim crt As String 

crt = "[CustomerNo] = & FormslanalysisHdr.CustomerNo & ,,,n 

crt = crt & " AND [BankCode] = & Report. BankCode & " ,n 

crt = crt & " AND [RevDate] = #" & FormsianalysisHdr.RevDate & "#" 

30 DepPerUnitCost = 0 1 reset it- so it doesn't dupe 

' Cash Deposit Per 1000 

CashDepPerlOOO = CalcDepTotal(crt, 101) 

CashCostPerlOOO = CalcCostTotal(crt, 101) 

If CashDepPerlOOO <> 0 Then 
35 ' avg unit cost has to multiply back by PerlOOO 

DepPerUnitCost = (CashCostPerlOOO / CashDepPerlOOO) * 1000 Fig. 10, item 10b 

End If 

' Cash Strapped 
DepStrappedUnitCost = 0 
40 CashDepStrapped = CalcDepTotal(crt, 102) 

DepStrappedCost = CalcCostTotaKcrt, 102) 
If DepStrappedCost <> 0 Then 

DepStrappedUnitCost = DepStrappedCost / CashDepStrapped 
End If 
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' Cash Loose 
DepLooseUnitCost = 0 
CashDepLoose = CalcDepTotal(crt, 103) 
DepLooseCost = CalcCostTotal(crt, 103) 
5 If CashDepLoose <> 0 Then 

DepLooseUnitCost = DepLooseCost / CashDepLoose 
End If 

1 Other Cash costs 

OtherCashUnitCost = 0 ' so it doesn't dupe 
10 OtherCash = CalcDepTotal(crt, 104) 

OtherCashTotal = CalcCostTotal(crt, 104) 
If OtherCash <> OThen 

OtherCashUnitCost = OtherCashTotal / OtherCash 
End If 

15 1 Last few columns 

'NightBagsCost = CalcCostTotal(crt, 60) 
AvgCashPerStore = CashDepPerlOOO / NumberOfStores 
CashOrderCost = CalcCostTotal(crt, 61) 

RolledCoinCost = CalcCostTotal(crt, 62) (Fig. 10, item IOb) 

20 BoxCoinCost = CalcCostTotai(crt, 63) 

End Sub 

Multiplying the results from (10b) * 12 yields the results in (10c). 

Report: Banking Activity (Fig. 11) 

Objective: Summarize information 
25 This report summarizes information presented in other reports. It provides one place to 

view Deposit Ticket costs, BAI Detail costs, Dep Recon costs, Night Bag costs, and 
Rolled Coin Costs. 



Code 

1 VERSION 1.0 CLASS 

30 2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Report_Banking Activity" 

6 Attribute VB_GlobaINameSpace = False 
35 7 AttributeVB_Creatable = True 

8 Attribute VB n PrededaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
40 12 

13 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

14 Dim crt As String 

15 crt = "[CustomerNo] = '" & FormslanalysisHdr.CustomerNo & ""' 

16 crt = crt & " AND [BankCode] = m & Report.BankCode & "" 

45 17 crt = crt & " AND [RevDate] = #" & FormsIanalysisHdr.RevDate & "#" 

18 

19 DepositTickets = CalcDepTotal(crt, 20) 

20 BAIDetail = CalcDepTotaKcrt, 40) 
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21 DepRecon = CalcDepTotal(crt, 45) 

22 DepErrors = CalcDepTotal (crt, 46) 

23 ChecksDeposited = CalcDepTotal (crt, 1) 

24 CashDeposited = CalcDepTotal (crt, 101) 
5 25 NightBags = CalcDepTotal (crt, 60) 

26 CashOrdered = CaIcDepTotal(crt, 61) 

27 RolledCoin = CalcDepTotal(crt 7 62) 

28 BoxCoin = CaIcDepTotal(crt 7 63) 

29 ReturnChecks = CalcDepTotal(crt> 64) 

10 30 ReturnChecksReDep = CaIcDepTotal(crt, 65) 

31 ReturnCheckBuyBack = CalcDepTotal(crt, 66) 

32 NSFUNCOD - CaIcDepTotal(crt, 67) 
33 

34 

15 35 End Sub 

36 

37 Private Sub Report_Activate() 

38 DoCmd. Maximize 

39 End Sub 

20 40 

41 Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

42 ' Carmen J. DeLeo July 8, 1999 

43 Dim crt As String 

44 ' No bank criteria on Sums 

25 45 crt = "[CustomerNo] = & Forms!analysisHdr.CustomerNo & ,M " 

46 crt = crt & " AND [RevDate] = #" & FormsianalysisHdr.RevDate & "#" 

47 SDepositTickets = CalcDepTotal(crt, 20) 

48 SBAIDetail = CalcDepTotal(crt, 40) 

49 SDepRecon = CalcDepTotal(crt, 45) 
30 50 SDepErrors = CalcDepTotal(crt, 46) 

51 SChecksDeposited = CalcDepTotal (crt, 1) 

52 SCashDeposited = CalcDepTotal(crt, 101) 

53 SNightBags = CalcDepTotal(crt, 60) 

54 SCashOrdered = CaIcDepTotaI(crt 7 61) 
35 55 SRolledCoin = CalcDepTotal(crt, 62) 

56 SBoxCoin = CalcDepTotal(crt, 63) 

57 SReturnChecks = CalcDepTotal(crt, 64) 

58 SReturnChecksRedep = CalcDepTotal(crt f 65) 

59 SReturnCheckBuyback = CaIcDepTotal(crt 7 66) 
40 60 SNSFUNCOD = CalcDepTotal(crt 7 67) 

61 

62 End Sub 

CalcDepTotal function is used in many of the reports: 

Public Function CalcDepTotal(crt As String, CatCode) 
45 Dim tmpAmount, tmpCost As Double 

Dim msg, crtAII As String 

crtAli = crt & " AND [CategoryCode] = " & CatCode 

tmpAmount = NzCDSumCTActivity]", "AnalysisDtlSubTotalsQ", crtAII), 0) 

CalcDepTotal = tmpAmount 

50 End Function 

This function is vital to determining the totals stored in the underlying Analysis Detail 
tables. As illustrated by the source code, this routine processes a category, then returns 
the total based on the Service and Category tables. 
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Report: Analysis By Unit Price (Fig. 12) 
The source code is equivalent to the above report, except for the output. 
Note: The Detail section of this report is not hidden, thereby showing the supporting data. 

SELECT AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisDti.ServiceCode, 
5 Banks.BankName, Banks.City, Banks.State, Customer.CustomerName, AnalysisDtl.Activity, 

AnalysisDti. UnitPrice, ServiceCodes.ServiceDescription, [UnitPrice]*[Activity]/[Per] AS ExtAmt, 
ServiceCodes.Per, AnalysisDtl.ConCharge, AnalysisDtl.ConDate 

FROM ServiceCodes INNER JOIN (((AnalysisDti INNER JOIN Banks ON AnalysisDtl.BankCode = 
Banks.BankCode) INNER JOIN Customer ON AnalysisDti .CustomerNo = Customer.CustomerNo) INNER JOIN 
10 AnalysisHdr ON (AnalysisHdr.RevDate = AnalysisDti. RevDate) AND (AnalysisHdr.BankCode = 

AnalysisDtl.BankCode) AND (AnalysisHdr.CustomerNo = AnalysisDti. CustomerNo) AND 
(Customer.CustomerNo = AnalysisHdr.CustomerNo) AND (Banks.BankCode = AnalysisHdr.BankCode)) ON 
ServiceCodes.ServiceCode = AnalysisDti. ServiceCode 
WHERE (((AnalysisDtl.ServiceCode)<"95000")); 

1 5 DETERMINING PARTICULAR CATEGORY COSTS 

Fig. 31 and Fig. 32 show excerpts from charts that disclose the method for determining a 
particular category's cost, using Night Bags as an example. This functionality is used 
frequently throughout the software. 

The following code will determine the total cost. It assumes that the statement 

20 data has been keyed in, during the Dynamic Compilation phase. 

Public Function CalcCostTotal(crt, CatCode) 
' return the cost of a group of service charges 
Dim tmpAmount, tmpCost As Double 
Dim msg, crtAII As String 

25 crtAII = crt & " AND [Categor/Code] = " & CatCode 

tmpAmount = Nz(DSum("[ExtCharge] H , "AnalysisDtlSubTotalsQ", crtAII), 0) 
CalcCostTotal = tmpAmount 
End Function 

This algorithm applies directly to Breakdown By Service Charge, and by User Supplied 
30 Groups. 

SECTION IV - ILLUMINATION (Fig. 13 and Fig. 14) 
Fig. 33 is a screen display of a Working Sheet Form that is used to summarize 
ServiceDescription items, and their actual costs and potential cost savings. 

The Bank Analyzer described above allows a client to obtain information that 
35 they have never been able to access. In doing so, it permits the client to eliminate 

wasteful banking transactions, reduce the amount of transactions and obtain a reduction 
in bank service charges and other charges and fees. 
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The Bank Analyzer is preferably used by a third party entity, who has a plurality 
of clients who provide the third party entity with their respective bank information for 
analysis. The third party entity may then build up a historical database of bank charges 
and credits from a plurality of different banks, and can then provide accurate comparisons 
5 of a specific client's bank analysis. However, the Bank Analyzer may also be sold or 

licensed by the third party entity to a client, along with a database of current bank data so 
that the client may perform their own analyses. 

The present invention may be implemented with any combination of hardware 
and software. The present invention can be included in an article of manufacture (e.g., 
1 0 one or more computer program products) having, for instance, computer useable media. 
The media has embodied therein, for instance, computer readable program code means 
for providing and facilitating the mechanisms of the present invention. The article of 
manufacture can be included as part of a computer system or sold separately. 

It will be appreciated by those skilled in the art that changes could be made to the 
15 embodiments described above without departing from the broad inventive concept 
thereof. It is understood, therefore, that this invention is not limited to the particular 
embodiments disclosed, but it is intended to cover modifications within the spirit and 
scope of the present invention. 

What is claimed is: 
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CLAIMS 



1 . A computer-implemented method of preparing bank service charge reports for 
banking activity of a client, the method comprising: 

(a) providing an electronic translator for converting service charge items of a 
plurality of individual banks, expressed in terminology of the respective individual banks, 
to a service description expressed in a standardized terminology, wherein at least some of 
the service charge items of different banks have the same standardized service 
description; 

(b) inputting bank service charge items and bank account data into a computer, 
the bank service charge items and bank account data being for a specified period of time 
for one or more banks being used by a client, the bank service charge items and bank 
account data being obtained from one or more bank statements of a client and being 
expressed in the one or more statements in terminology used by the one or more banks; 
and 

(c) in the computer, automatically creating one or more bank service charge 
reports for the client from the inputted bank service charge items by using the electronic 
translator, each bank service charge report providing a breakdown of bank service 
charges based upon the standardized service descriptions. 

2. The method of claim 1 wherein a subset of the standardized service 
descriptions of bank service charges define a total amount of a predefined type of bank 
service charge costs, the method further comprising: 

(d) calculating the total amount of a predefined type of bank service charge costs 
by adding together the bank service charges in the subset, and creating a total cost report 
for the predefined type of bank service charge costs from the calculated total. 

3. The method of claim 2 wherein the subset defines total depository costs. 

4. The method of claim 2 wherein the subset defines total check costs. 

5. The method of claim 2 wherein the subset defines total account maintenance 

costs. 



-38- 



6. The method of claim 1 wherein the specified period of time is one month. 

7. The method of claim 1 wherein the standardized service descriptions are 
understandable by a layperson. 

8. The method of claim 1 wherein at least some of the bank terminology for 
service charges are unique to one of the individual banks. 

9. The method of claim 1 further comprising: 

(d) providing a historical database of average bank service charges for selected 
standardized service descriptions based upon bank service charges of a plurality of 
clients; and 

(e) in the computer, comparing the individually broken down bank service 
charges created in step (c) to the average bank service charges, wherein the comparison 
may be used by the client to identify potentially excessive bank service charges. 

10. The method of claim 1 further comprising: 

(d) providing a database of bank service charges for each of the standardized 
service descriptions based upon bank service charges of all of the banks used by the 
client; and 

(e) in the computer, comparing the individually broken down bank service 
charges created in step (c) for one of the client's banks to the bank service charges for 
other banks used by the client, wherein the comparison may be used by the client to 
identify potentially excessive bank service charges. 

1 1 . The method of claim 1 wherein one of the standardized service charge items 
is deposit ticket costs, and deposits have a predefined earnings credit rate, the method 
further comprising: 

(d) in the computer, using the deposit ticket costs and the earnings credit rate to 
calculate a breakeven deposit amount wherein the earnings credit exceeds the cost of 
depositing money, and creating a report thereof. 

12. A computer-implemented method of preparing earnings credit reports for 

banking activity of a client, the method comprising: 

(a) providing an electronic translator for converting bank earnings credit items of 
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a plurality of individual banks, expressed in terminology of the respective individual 
banks, to an earnings credit service description expressed in a standardized terminology, 
wherein at least some of the bank earnings credit items of different banks have the same 
standardized service description; 

(b) inputting bank earnings credit items and bank account data into a computer, 
the bank earnings credit items and bank account data being for a specified period of time 
for one or more banks being used by a client, the bank earnings credit items and bank 
account data being obtained from one or more bank statements and being expressed in the 
one or more statements in terminology used by the one or more banks; and 

(c) in the computer, automatically creating one or more earnings credit reports for 
the client from the inputted bank earnings credit items by using the electronic translator, 
each earnings credit report providing earnings credit data for each bank being used by the 
client. 

13. The method of claim 12 wherein the specified period of time is one month. 

14. The method of claim 12 wherein the standardized service descriptions are 
understandable by a layperson. 

15. The method of claim 12 wherein at least some of the bank terminology for 
earnings credit items are unique to one of the individual banks. 

16. The method of claim 12 wherein the earnings credit data includes an earnings 
credit interest rate, the method further comprising: 

(d) in the computer, comparing the earnings credit interest rate for each bank with 
a benchmark interest rate and creating an earnings credit analysis report that shows how 
the earnings credit interest rate for each bank being used by the client compares to the 
benchmark rate. 

17. The method of claim 12 wherein the benchmark interest rate is either the 
Treasury bill rate or the federal funds rate. 

18. The method of claim 12 wherein the earnings credit data includes earnings 
credit interest rate data and negative collected interest rate data for each bank being used 
by the client. 
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19. An article of manufacture for preparing bank service charge reports for 
banking activity of a client, the article of manufacture comprising a computer-readable 
medium holding computer-executable instructions for performing a method comprising: 

(a) providing an electronic translator for converting service charge items of a 
plurality of individual banks, expressed in terminology of the respective individual banks, 
to a service description expressed in a standardized terminology, wherein at least some of 
the service charge items of different banks have the same standardized service 
description; 

(b) inputting bank service charge items and bank account data into a computer, 
the bank service charge items and bank account data being for a specified period of time 
for one or more banks being used by a client, the bank service charge items and bank 
account data being obtained from one or more bank statements of a client and being 
expressed in the one or more statements in terminology used by the one or more banks; 
and 

(c) in the computer, automatically creating one or more bank service charge 
reports for the client from the inputted bank service charge items by using the electronic 
translator, each bank service charge report providing a breakdown of bank service 
charges based upon the standardized service descriptions, 

20. The article of manufacture of claim 19 wherein a subset of the standardized 
service descriptions of bank service charges define a total amount of a predefined type of 
bank service charge costs, the computer-executable instructions performing a method 
further comprising: 

(d) calculating the total amount of a predefined type of bank service charge costs 
by adding together the bank service charges in the subset, and creating a total cost report 
for the predefined type of bank service charge costs from the calculated total. 

21 . The article of manufacture of claim 20 wherein the subset defines total 
depository costs. 

22. The article of manufacture of claim 20 wherein the subset defines total check 

costs. 
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23. The article of manufacture of claim 20 wherein the subset defines total 
account maintenance costs. 

24. The article of manufacture of claim 19 wherein the specified period of time is 
one month. 

25. The article of manufacture of claim 19 wherein the standardized service 
descriptions are understandable by a layperson. 

26. The article of manufacture of claim 19 wherein at least some of the bank 
terminology for service charges are unique to one of the individual banks. 

27. The article of manufacture of claim 19 wherein the computer-executable 
instructions perform a method further comprising: 

(d) providing a historical database of average bank service charges for selected 
standardized service descriptions based upon bank service charges of a plurality of 
clients; and 

(e) in the computer, comparing the individually broken down bank service 
charges created in step (c) to the average bank service charges, wherein the comparison 
may be used by the client to identify potentially excessive bank service charges. 

28. The article of manufacture of claim 19 wherein the computer-executable 
instructions perform a method further comprising: 

(d) providing a database of bank service charges for each of the standardized 
service descriptions based upon bank service charges of all of the banks used by the 
client; and 

(e) in the computer, comparing the individually broken down bank service 
charges created in step (c) for one of the client's banks to the bank service charges for 
other banks used by the client, wherein the comparison may be used by the client to 
identify potentially excessive bank service charges. 

29. The article of manufacture of claim 19 wherein one of the standardized 

service charge items is deposit ticket costs, and deposits have a predefined earnings credit 

rate, the computer-executable instructions performing a method further comprising: 

(d) in the computer, using the deposit ticket costs and the earnings credit rate to 
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calculate a breakeven deposit amount wherein the earnings credit exceeds the cost of 
depositing money, and creating a report thereof. 

30. An article of manufacture for preparing earnings credit reports for banking 
activity of a client, the article of manufacture comprising a computer-readable medium 
holding computer-executable instructions for performing a method comprising: 

(a) providing an electronic translator for converting bank earnings credit items of 
a plurality of individual banks, expressed in terminology of the respective individual 
banks, to an earnings credit service description expressed in a standardized terminology, 
wherein at least some of the bank earnings credit items of different banks have the same 
standardized service description; 

(b) inputting bank earnings credit items and bank account data into a computer, 
the bank earnings credit items and bank account data being for a specified period of time 
for one or more banks being used by a client, the bank earnings credit items and bank 
account data being obtained from one or more bank statements and being expressed in the 
one or more statements in terminology used by the one or more banks; and 

(c) in the computer, automatically creating one or more earnings credit reports for 
the client from the inputted bank earnings credit items by using the electronic translator, 
each earnings credit report providing earnings credit data for each bank being used by the 
client. 

31. The article of manufacture of claim 30 wherein the specified period of time is 
one month. 

32. The article of manufacture of claim 30 wherein the standardized service 
descriptions are understandable by a layperson. 

33. The article of manufacture of claim 30 wherein at least some of the bank 
terminology for earnings credit items are unique to one of the individual banks. 

34. The article of manufacture of claim 30 wherein the earnings credit data 
includes an earnings credit interest rate, the computer-executable instructions performing 
a method further comprising: 

(d) in the computer, comparing the earnings credit interest rate for each bank with 
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a benchmark interest rate and creating an earnings credit analysis report that shows how 
the earnings credit interest rate for each bank being used by the client compares to the 
benchmark rate. 

35. The article of manufacture of claim 30 wherein the benchmark interest rate is 
either the Treasury bill rate or the federal funds rate. 

36. The article of manufacture of claim 30 wherein the earnings credit data 
includes earnings credit interest rate data and negative collected interest rate data for each 
bank being used by the client. 
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ABSTRACT OF THE DISCLOSURE 

A computer-implemented process prepares bank service charge reports for banking 
activity of a client. An electronic translator is provided for converting service charge items 
of a plurality of individual banks, expressed in terminology of the respective individual 
banks, to a service description expressed in a standardized terminology. Bank service 
5 charge items and bank account data are inputted into a computer. The bank service charge 
items and bank account data are for a specified period of time for one or more banks being 
used by a client. The bank service charge items and bank account data are obtained from 
one or more bank statements of a client and are expressed in the one or more statements in 
terminology used by the one or more banks. In the computer, one or more bank service 

1 0 charge reports are automatically created for the client from the inputted bank service 

charge items by using the electronic translator. Each bank service charge report provides a 
breakdown of bank service charges based upon the standardized service descriptions, A 
historical database is provided of average bank service charges for selected standardized 
service descriptions based upon bank service charges of a plurality of clients. The 

15 individually broken down bank service charges are compared to the average bank service 
charges to identify potentially excessive bank service charges. A similar process is 
performed for earnings credit items. 

65027 V3 
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FIG. 1 (part 1) 
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Fig. 16 



Standaxdiaed Servic* 
Codes 



Standard ftem 2 



Standard. Item x 



Service Codes 
(Fig. 17) 




Banks 
(Fig. 18) 



Bank Information 



Service Code 1 
Service Code 2 
Service Code 3 



Service Code x 



Master Cross Reference 
(Fig. 19) 



Service Codes 



Fig. 15 



Field 


FieldType 


Length 


FEDServiceCode 


Numeric 


6 


FEDServiceDescription 


Text 


50 


FEDCategoryCode 


Numeric 


6 



The Category code indicates which category this service charge falls into. 

Fig. 17 



Banks 



Field 


FieldType 


Length 


BankCode 


Numeric 
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BankName 


Text 


50 








Fig. 18 

BankS erv 


Field 


FieldType 


Length 


BankCode 


Numeric 
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FEDServiceCode 


Numeric 


6 


Ba n kDescr i ption 


Text 


50 









Relationship: Banks (l) -> BankS erv (many) 

Fig. 19 



Cross Reference 
Table 



m Banks 



Bank Code: | 01 3 DateEntered 

Bank Name: fEASTERN SAVINGS C O. 
City/State: ^CLEVELAND 



11/12/1 992 C- 



By Name 



Quick Print 



jOH 

Bank Terminology 



Standard te*mfcolbg& ; 



B ank/S ei vice Code XR ef 





[Service 








MMKM3 


DEP RECONPROC 


BAI DETAIL 




00974 


DEP RECON MAI NT 


BAI MAINTENANCE 




02000 


BUSINESS WEB BANK FEE 


BAL INFO 1 




02001 


DEP RECON RPTS-N/MAN-EX COPY 


BAL INFO 2 




00744 


INFO RPTG-TERM-BUNDLED 


BAL REP-ONE TOTAL 




00249 


DEPOSITED ITEMS 


CHKS UNENC MIXED 




00340 


BRANCH DEP COIN & CURR-BUNDLED 


CURR DEP STANDARD 




00426 


DEPOSIT ADJUSTMENT PROC 


DEP CORRECTION 
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DEPOSITED PROCESSED 


DEP TICKETS 
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DEP RECON MAI NT 


DEP. RECON MAI NT 




00438 


INFO D LVR Y- P O STAG E 


DEP. RECON POSTAGE 


Re 


no ai.g. 


r^CZO D COOM. DDTO TDAM O 





jl Record; -11*1:4 



Fig. 20 A 



Bank Code: \ 



211 



Bank Name; [COMMERCIAL BANK 
City/Stete: ^DETROIT ': 

Bank/Service Code XRef 



DateEhtered J 11/13/19:32 



By Code 
By Name 



Quick Print 



. jmi; 

Bank Terminology 



Standard Terminology 





Service 


* f ' " :; Bank Description " 


.,r -r-^l VSennceDescri|ition . 




00620 


ACCOUNT MAINTENANCE 


ACCOUNT MAINTENANCE 




00621 


ACH ORIGINATED -PER ADDENDA REC 


ACH ADDENDA REC 




00420 


DEBIT POSTED 


DEBIT- CHECK PAID 




00426 


DEPOSIT ERROR CORRECTION - CHECK 


DEP CORRECTION 




00372 


DEPOSIT ERROR CORRECTION 


DEP CORRECTION CASH 




00425 


CREDIT POSTED 


DEP TICKETS 




00437 


DEPOSIT RECON PER CREDIT PREMIUM 


DEP. RECON ITEMS 




00434 


DEPOSIT RECONCILEMENT 


DEP. RECON MAI NT 




00973 


RECON| 


BAI DETAIL 
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EDI RECEIPT HARDCOPY PER ADVICE 


E D 1 TRANSMISSION 
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E D 1 TRANSMISSION ITEMS 


Re 


nn a dQ^ 

cord: M 


j 9 ► |;m l>*1bf 57 •': ^ . ^ 
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Fig. 20 B 



Clients 



Name 


Type 


Size 


CustomerNo 


Text 


5 


CustomerName 


Text 


50 


Addressl 


Text 


35 


Address2 


Text 


35 


City 


Text 


20 


State 


Text 


2 


Zip 


Text 


10 


Phone 


Text 


10 


DateEntered 


Date/Time 


8 


PerCent Return 


Double 


8 


Comments 


Text 


50 


PDL1 


Double 


8 


PDL2 


Double 


8 


PDL3 


Double 


8 


PDL4 


Double 


8 


CompanyLogo 


Hyperlink 





Fig. 21 



Start 




Bank Analyzer 



Comparisons to National 
Averages 



Bank Service Charge History 


Field 


FieldType 


Length 


BankCode 


Numeric 


6 


FEDServiceCode 


Numeric 


6 


BankDescription 


Text 


50 


BankCharge 


Numeric 


8 


ChargeDate 


Date/Time 











Fig. 23 



^ Stop ^ 



Fig. 22 



AnalysisHdr 



Name 


Type 


Size 


CustomerNo 


Text 


5 


BankCode 


Text 


10 


RevDate 


Date/Time 


8 


AvgBal 


Double 


8 


AvgFloat 


Double 


8 


Fed Pet 


Double 


8 


ECRate 


Double 


8 


AvgDIyNeg 


Double 


8 


AnalysisNo 


Long Integer 


4 


N u m be rOf Sto res 


Long Integer 


4 


NegCollectedRate 


Double 


8 


DateEntered 


Date/Time 


8 



Fig. 24 



AnalysisDtl 



Name 


Type 


Size 


CustomerNo 


Text 


5 


BankCode 


Text 


10 


RevDate 


Date/Time 


8 


ServiceCode 


Text 


6 


Activity 


Double 


8 


UnitPrice 


Double 


8 


SeqNo 


Long Integer 
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RecCharge 


Double 


8 


Comments 


Text 


30 


ConCharge 


Double 
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RecDate 


Date/Time 


8 


ConDate 


Date/Time 
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Fig. 25 



SI Earnings Credit Analysis 



T-Bill: f 
Fed Funds: J~ 



5.03% 



C"*: Show Negative 
Collected ■ 



5.502^ 



8.00% 



7.75% 



Fig. 26 



Earnings Credit Analysis 



I nte rest Rates 
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T^Bill: [ 
Fed Funds: j" 
Interest ;£ 
Prime: f 
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Fig. 27 



Category 



Field 


FieldType 


Length 


FEDCategoryCode 


Numeric 


6 


FEDCategory Description 


Text 


50 









Category -> ServiceCodes is a one-to-many relationship. 

The Category code indicates which category this service charge falls into. 



Fig. 28 



Category Select Form 




SB AnalysisRpt Select : Form 



ADVANTAGE BANK KENOSHA *M 828 

ALBANY SAVINGS BANK ALBANY NY 243 

AL1 ANT BANK ALEXANDER < AL 552 

ALLFIRST HARRISBURG HARRISBURG PA 132 

ALLFIRST MARYLAND BALTIMORE MD 041 t 



M I? ^ Alj Banks 



Codes: 



00215 ;cHKse^/M&^D 

00225 CHKSENCONUS ; , ./\\-: :: ■ 



Customers: j SHEFWIN-WJLLIAMS CO. 
I SPENCERS GIFTS 




j^f Aft Customers 
^J^'' ■ 1 Customers setectecf. „ 



Start Date 
End Date: 



$99,999.00 ]£ 



Excerpt from FED Categories table. 



CategoryCode 




Color 




47 


47 BAL REPORTING COSTS 






58 


58 - OTHER RETURNS 


Blue 




59 


59 RETURN CHECK COSTS 


Green 




Select the proper category 


60 


60 - NIGHT BAGS 




<^= 


from the CATEGORIES 


61 


Cash Order Cost 






table. 


62 


Rolled Coin 






63 


Boxed Coin 






64 


Return Checks 







Fig. 31 



Excerpt from ServiceCategories table: 



ServiceCode 




00279 
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00281 


59 


00282 


59 


00283 
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00284 


59 


02500 
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02501 
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59 
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60 


00439 


60 
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60 


00545 


60 


00550 
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60 


00556 


60 


03001 


60 


03002 


60 


00405 


61 


00305 


62 


00306 


62 


00295 


| 63 


00265 


J 64 



Fig. 32 




Select all service codes which fall 
into this category. In this 
example, Night Bags. 



gf] Working Sheet 



Working Sheet j Report Options | 



^ Analysis^ 1 .. ; 22^-y > / 



■ T ' El^VELAND^ OH .!>•' v Operntnv rif Finnic AnaivZer ■■■ ■. ■ ■ - ■■ * 







SeruiceC| >y <^™Ml|M^iirti^r :: " 


| Activity | UnrtPrice |lWoiith* Cbs^ 


MonthSaulhg 
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00620 


I ACCOUNT MAINTENANCE 


; 1 
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20.00 


0.00 
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i DEP TICKETS 
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0.40 
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0.40 
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i MISCELLANEOUS 4 




0 05 
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00249 


! CHKS UNENC MIXED 


169 


0.12 


20.28 


0.12 


0.00 










01 000 


; MISCELLANEOUS 1 


19 


0.145 


2.76 


0.1 45 


0.00 










00265 


RETURN ITEM 


2 


8.00 


16.00 


4.00 


s.oo; 








00270 


: RETURN ITEM REDEPOSITED 


I 5l 


4.50 | 


22.50 


4 50 










00340 


[CURR DEP STANDARD 


| 481 456 1 


0.70 ; 


337.02 


0.70 


0.00 








00974 


i BAI MAINTENANCE 


-] T - 


50.00 | 


50 00 


50.00 


0.00 






SO 


00973 


[ BAI DETAIL 


j 1S0! 


0.065 j 


11 .70 


0.065 


0.00 
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3por 


d: ^l: + 


fl i :.>Vl*r1**rof 


i<F«tered>; 


fdfiz. ■ .. ■ ■ ■ ■ 




^^^^^^ 
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Fig. 33 



Express Mail Label No. EL474251554VS 



Attorney Docket No. 10334-1 US 



DECLARATION AND POWER OF ATTORNEY 

(Original Application) 

As a below named inventor, I hereby declare that: 

My residence, post office address and citizenship are as stated below next to my 

name. 

I believe I am the original, first and sole inventor (if only one name is listed 
below) or an original, first and joint inventor (if plural names are listed below) of the subject 
matter which is claimed and for which a patent is sought on the invention entitled 

AUTOMATED SYSTEM FOR ANALYZING CHARGES AND CREDITS OF BANKS 
AND OTHER FINANCIAL INSTITUTIONS 

the specification of which is filed herewith. 

I hereby state that I have reviewed and understand the contents of the 
above-identified specification, including the claims, as amended by any amendment referred to 
herein. 

I acknowledge the duty to disclose information which is material to patentability 
in accordance with Title 37, Code of Federal Regulations, Section 1.56. 

I hereby claim foreign priority benefits under Title 35, United States Code, 
Section 1 19(a)-(d), of any foreign application(s) for patent or inventor's certificate listed below 
and have also identified below any foreign application for patent or inventor's certificate having a 
filing date before that of the application on which priority is claimed: 

FOREIGN PRIORITY APPLICATION'S) 

Priority Claimed 

None []Yes []No 

(Number) (Country) (Day/month/year filed) 



I hereby claim the benefit under Title 35 , United States Code § 1 19(e) of any 
United States provisional patent application(s) listed below and have also identified below any 
United States provisional patent application(s) having a filing date before that of the application 
on which priority is claimed: 



PROVISIONAL PRIORITY PATENT APPLICATION(S) 



Priority Claimed 

None []Yes [ ] No 

(Application No.) (Filing Date) 



And I hereby appoint the registered attorneys and agents associated with AKIN, 
GUMP, STRAUSS, HAUER & FELD, LX.P., Customer No. 000570, as my attorneys or 
agents with full power of substitution and revocation, to prosecute this application and to transact 
all business in the Patent and Trademark Office connected therewith. 

Address all correspondence to Customer No. 000570, namely, AKIN, GUMP, 
STRAUSS, HAUER & FELD, L.L.P., One Commerce Square, 2005 Market Street, Suite 2200, 
Philadelphia, Pennsylvania 19103. Please direct all communications and telephone calls to 
Clark A. Jablon at (215) 965-1293. 

I hereby declare that all statements made herein of my own knowledge are true 
and that all statements made on information and belief are believed to be true; and further that 
these statements were made with the knowledge that willful false statements and the like so 
made are punishable by fine or imprisonment, or both, under Section 1001 of Title 18 of the 
United States Code and that such willful false statements may jeopardize the validity of the 
application or any patent issuing thereon. 
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Full name of sole 



inventor, if any 

Inventor's Signature 
Date 




Residence Turnersville, New Jersey 

Citizenship United States of America 

Post Office Address 1 1 Eden Road, Turnersville, New Jersey 08012 
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Express Mail Label No. EL474251554US 

PATENT 

IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 

In re: Patent Application of : Group Art Unit: 

Francis E. DiBacco : 

Appln. No.: : Examiner: 

Filed: Herewith : 

For: AUTOMATED SYSTEM FOR : Attorney Docket 

FOR ANALYZING CHARGES AND : No. 10334-1US 
CREDITS OF BANKS AND OTHER 
FINANCIAL INSTITUTIONS 

Assistant Commissioner for Patents 
Washington, DC 20231 

ATTENTION: Deputy Assistant Commissioner for Patents 



PETITION TO ACCEPT COLOR DRAWINGS OR PHOTOGRAPHS 
(37 C.F.R. 8 1.84(a)(2) and (fr)(2) 



i-jj 1. This Petition is for the acceptance of color drawings (37 C.F.R. § 1.84(a)(2)) 

f * and photographs (37 C.F.R. § 1 .84(b)(20)). 

.ISIS. 

!s * 2. Attached hereto are three (3) sets of color drawings and photographs. 

3. The Specification, as originally filed, contains the required reference to color 
drawings. See page 4, line 31 through page 5, line 2. 

4. The reasons for the need for color drawings or photographs in this application 
are as follows. An important feature of the present invention is that the software generates 
numerous reports which explain in layman's terms exactly how bank service charges are broken 
down. The reports are presented in color , thereby making it simple for even a novice to elicit the 

07/E4/S000 &®8CteKi jo#0SSa«fiSji76Eor example, the Earnings Credit Analysis in Fig. 3 color codes basis point 
04 FCsic£ shaved, to indicate ^MMal bank activity. The color coding also enhances the readability of 



selected screen shots. The color coding is applied to text, and not objects, in the figures that 
show report tables. Thus, it is not possible to use approved drafting symbols for the different 
colors. 



5. The Petition fee required to waive the requirements of 1 .84 (37 C.F.R. 
§ 1.17 (I)) is paid as follows: 

[X] Attached is a check for the sum of SI 30.00 . 

Respectfully submitted, 
FRANCIS E. DiBACCO 

\Tu/y If > 9.000 By:„ 

4t)ate) CLARkXjAWJON 

Registration No. 35,039 

AKIN, GUMP, STRAUSS, HAUER & FELD, L.L.P. 

One Commerce Square 
2005 Market Street - Suite 2200 
Philadelphia, PA 19103 
Telephone: (215) 965-1200 
Direct Dial: (215) 965-1293 
Facsimile: (215) 965-1210 
E-Mail: cjablon@akingump.com 

CAJ/vlb 
Enclosures 
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